nicer name for temporary transaction dirs

1 files changed, 6 insertions, 2 deletions

diff --git a/lib/Kiki.hs b/lib/Kiki.hs
index 79868c9..4c9f98c 100644
--- a/lib/Kiki.hs
+++ b/lib/Kiki.hs
@@ -219,10 +219,14 @@ refreshCache rt rootdir = do
             unslash ('/':xs) = xs
             unslash xs = xs
         createDirectoryIfMissing True cachedir
-        tmpdir <- createTempDirectory cachedir "transaction.dir"
+        tmpdir <- createTempDirectory cachedir ("transaction." ++ takeBaseName destdir)
         createSymbolicLink tmpdir (tmpdir ++ ".link")
         let mkpath pth = tmpdir </> unslash pth
-            commit     = rename (tmpdir ++ ".link") destdir
+            commit     = do
+                -- oldcommit <- readSymbolicLink destdir
+                rename (tmpdir ++ ".link") destdir
+                -- FIXME: somehow cleanup old commits
+                -- removeDirectoryRecursive oldcommit
         return (mkpath,commit)
     (mkpath, commit) <- getMkPathAndCommit (fromMaybe "" rootdir ++ "/var/cache/kiki/config")