diff options
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Kiki.hs | 2 |
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 |