diff options
| author | Andrew Cady <d@jerkface.net> | 2019-06-22 19:02:42 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2019-07-01 06:00:33 -0400 |
| commit | b0d560708f5fd7b244ce4b98973a1378f15963d0 (patch) | |
| tree | 7fc1892e65aa30d5a82c592861bcb171aa90e9c2 /lib/Kiki.hs | |
| parent | d4f0a5eaa387ffe638426b268a04fe5f26610dc1 (diff) | |
change name of symlink target in /var/cache/kiki/
Diffstat (limited to 'lib/Kiki.hs')
| -rw-r--r-- | lib/Kiki.hs | 2 |
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 |