chore: remove redundant doall

pull/886/head
Yukun Guo 2020-12-09 23:23:14 +08:00 committed by Tienson Qin
parent 06d32ef2b0
commit 8963e23766
1 changed files with 5 additions and 6 deletions

View File

@ -206,11 +206,10 @@
git-add-f (fn [] git-add-f (fn []
(let [add-helper (let [add-helper
(fn [] (fn []
(doall (map
(map (fn [[path content]]
(fn [[path content]] (git-handler/git-add repo path update-status?))
(git-handler/git-add repo path update-status?)) files))]
files)))]
(-> (p/all (add-helper)) (-> (p/all (add-helper))
(p/then (fn [_] (p/then (fn [_]
(when git-add-cb (when git-add-cb
@ -224,7 +223,7 @@
(let [original-content (get file->content path)] (let [original-content (get file->content path)]
[path original-content content])) files)] [path original-content content])) files)]
(history/add-history! repo files-tx))))] (history/add-history! repo files-tx))))]
(-> (p/all (doall (map write-file-f files))) (-> (p/all (map write-file-f files))
(p/then (fn [] (p/then (fn []
(git-add-f) (git-add-f)
;; TODO: save logseq/metadata ;; TODO: save logseq/metadata