summaryrefslogtreecommitdiff
path: root/lib/Kiki.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Kiki.hs')
-rw-r--r--lib/Kiki.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/Kiki.hs b/lib/Kiki.hs
index 0d2844f..4189f77 100644
--- a/lib/Kiki.hs
+++ b/lib/Kiki.hs
@@ -234,6 +234,8 @@ refreshCache rt rootdir = do
234 `catch` \e -> do 234 `catch` \e -> do
235 when (not $ isDoesNotExistError e) $ warn (show e) 235 when (not $ isDoesNotExistError e) $ warn (show e)
236 return Nothing 236 return Nothing
237 -- Note: Files not written to are considered deleted,
238 -- otherwise call readyReadBeforeWrite on them.
237 rename (tmpdir ++ ".link") destdir 239 rename (tmpdir ++ ".link") destdir
238 er <- T.mapM dotlock_release lock 240 er <- T.mapM dotlock_release lock
239 void $ T.mapM removeDirectoryRecursive oldcommit 241 void $ T.mapM removeDirectoryRecursive oldcommit