summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndrew Cady <d@jerkface.net>2019-06-22 19:02:42 -0400
committerJoe Crayne <joe@jerkface.net>2019-07-01 06:00:33 -0400
commitb0d560708f5fd7b244ce4b98973a1378f15963d0 (patch)
tree7fc1892e65aa30d5a82c592861bcb171aa90e9c2
parentd4f0a5eaa387ffe638426b268a04fe5f26610dc1 (diff)
change name of symlink target in /var/cache/kiki/
-rw-r--r--lib/Kiki.hs2
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