summaryrefslogtreecommitdiff
path: root/lib/Kiki.hs
diff options
context:
space:
mode:
authorJames Crayne <jim.crayne@gmail.com>2016-04-28 01:36:27 -0400
committerJames Crayne <jim.crayne@gmail.com>2016-04-28 01:36:27 -0400
commit561f80a5606623c88ea2c5ba746ac24921ba5137 (patch)
tree9c047d4ab57862531c6fedc715e19633c9a9ace4 /lib/Kiki.hs
parent062d01bc897ad71823029d95918db753dd2581b5 (diff)
comment only
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