mirror of https://github.com/logseq/logseq
chore: remove redundant doall
parent
06d32ef2b0
commit
8963e23766
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue