Fix re-indexing native file system

pull/1073/head
Kan-Ru Chen 2021-01-07 23:49:43 +09:00
parent cb5d8b9c90
commit aeb50df515
1 changed files with 1 additions and 1 deletions

View File

@ -240,7 +240,7 @@
(-> (p/all (map (fn [path]
(when-let [file (get-file-f path new-files)]
(p/let [content (.text (:file/file file))]
(assoc file :file/content content)))) added-or-modified))
(assoc file :file/content (fs/decrypt fs/secret content))))) added-or-modified))
(p/then (fn [result]
(let [files (map #(dissoc % :file/file :file/handle) result)
non-modified? (fn [file]