use makeRelative, for more flexible mkpath

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
             createSymbolicLink tmpdir (tmpdir ++ ".link")
             lock <- dotlock_create destdir 0
             T.mapM (flip dotlock_take timeout) lock
-            let mkpath pth = tmpdir </> unslash pth
+            let mkpath pth = tmpdir </> unslash (makeRelative destdir pth)
                 commit     = do
                     oldcommit <- (Just <$> readSymbolicLink destdir)
                                     `catch` \e -> do
@@ -244,7 +244,7 @@ refreshCache rt rootdir = do
             -- let readyReadBeforeWrite pth = do
             --    let copyIt = do
             --          createDirectoryIfMissing True (takeDirectory (mkpath pth))
-            --          copyFile (destdir </> unslash pth) (mkpath pth)
+            --          copyFile (destdir </> unslash (makeRelative destdir pth) (mkpath pth)
             --    doesFileExist (mkpath pth) >>= flip when copyIt
             --    return (mkpath pth)
             return (mkpath, commit {-, readyReadBeforeWrite -})