summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/Kiki.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Kiki.hs b/lib/Kiki.hs
index 4189f77..38064ff 100644
--- a/lib/Kiki.hs
+++ b/lib/Kiki.hs
@@ -228,7 +228,7 @@ refreshCache rt rootdir = do
228 createSymbolicLink tmpdir (tmpdir ++ ".link") 228 createSymbolicLink tmpdir (tmpdir ++ ".link")
229 lock <- dotlock_create destdir 0 229 lock <- dotlock_create destdir 0
230 T.mapM (flip dotlock_take timeout) lock 230 T.mapM (flip dotlock_take timeout) lock
231 let mkpath pth = tmpdir </> unslash pth 231 let mkpath pth = tmpdir </> unslash (makeRelative destdir pth)
232 commit = do 232 commit = do
233 oldcommit <- (Just <$> readSymbolicLink destdir) 233 oldcommit <- (Just <$> readSymbolicLink destdir)
234 `catch` \e -> do 234 `catch` \e -> do
@@ -244,7 +244,7 @@ refreshCache rt rootdir = do
244 -- let readyReadBeforeWrite pth = do 244 -- let readyReadBeforeWrite pth = do
245 -- let copyIt = do 245 -- let copyIt = do
246 -- createDirectoryIfMissing True (takeDirectory (mkpath pth)) 246 -- createDirectoryIfMissing True (takeDirectory (mkpath pth))
247 -- copyFile (destdir </> unslash pth) (mkpath pth) 247 -- copyFile (destdir </> unslash (makeRelative destdir pth) (mkpath pth)
248 -- doesFileExist (mkpath pth) >>= flip when copyIt 248 -- doesFileExist (mkpath pth) >>= flip when copyIt
249 -- return (mkpath pth) 249 -- return (mkpath pth)
250 return (mkpath, commit {-, readyReadBeforeWrite -}) 250 return (mkpath, commit {-, readyReadBeforeWrite -})