fix: do not save pretty print results

This commit is contained in:
Peng Xiao
2022-09-24 10:20:30 +08:00
parent 526a8d99c8
commit 45b00c5560

View File

@@ -138,8 +138,8 @@
file-path (-> (db-utils/entity file-db-id) :file/path)]
(if (and (string? file-path) (not-empty file-path))
(let [new-content (if (:block/whiteboard? page-block)
(util/pp-str {:blocks (map remove-transit-ids tree)
:pages (list (remove-transit-ids page-block))})
(pr-str {:blocks (map remove-transit-ids tree)
:pages (list (remove-transit-ids page-block))})
(tree->file-content tree {:init-level init-level}))
files [[file-path new-content]]
repo (state/get-current-repo)]