diff options
-rw-r--r-- | lib/Kiki.hs | 4 |
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 -}) |