fix: invalid db when creating nested page in Library

fixes logseq/db-test#554

Author: tiensonqin

src/main/frontend/worker/pipeline.cljs

@@ -183,7 +183,14 @@
                page-tag-update? (and (= :block/tags (:a datom))
                                      (= (:db/id page-tag) (:v datom)))
                move-to-library? (and (= :block/parent (:a datom))
-                                     (= (:db/id library-page) (:v datom))
+                                     (or (= (:db/id library-page) (:v datom))
+                                         (and
+                                          (ldb/page? (d/entity db (:v datom)))
+                                          (let [parents (->> (ldb/get-block-parents db (:block/uuid (d/entity db (:v datom))))
+                                                             (map :db/id)
+                                                             (set))]
+                                            (contains? parents (:db/id library-page)))))
+
                                      (:added datom))]
            (when (or page-tag-update? move-to-library?)
              (let [block-before (d/entity db-before id)