diff options
-rw-r--r-- | lib/Kiki.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Kiki.hs b/lib/Kiki.hs index 828a251..c1dd587 100644 --- a/lib/Kiki.hs +++ b/lib/Kiki.hs | |||
@@ -331,7 +331,7 @@ refreshCache rt rootdir = do | |||
331 | unslash xs = xs | 331 | unslash xs = xs |
332 | timeout = -1 -- TODO: set milisecond timeout on dotlock | 332 | timeout = -1 -- TODO: set milisecond timeout on dotlock |
333 | createDirectoryIfMissing True cachedir | 333 | createDirectoryIfMissing True cachedir |
334 | tmpdir <- createTempDirectory cachedir ("transaction." ++ takeBaseName destdir) | 334 | tmpdir <- createTempDirectory cachedir (takeBaseName destdir ++ ".") |
335 | createSymbolicLink (makeRelative cachedir tmpdir) (tmpdir ++ ".link") | 335 | createSymbolicLink (makeRelative cachedir tmpdir) (tmpdir ++ ".link") |
336 | lock <- dotlock_create destdir 0 | 336 | lock <- dotlock_create destdir 0 |
337 | T.mapM (flip dotlock_take timeout) lock | 337 | T.mapM (flip dotlock_take timeout) lock |