summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Utility/LockFile/PidLock.hs7
1 files changed, 5 insertions, 2 deletions
diff --git a/Utility/LockFile/PidLock.hs b/Utility/LockFile/PidLock.hs
index 68d9b7bac..5c5a89cc7 100644
--- a/Utility/LockFile/PidLock.hs
+++ b/Utility/LockFile/PidLock.hs
@@ -144,8 +144,11 @@ tryLock lockfile = trySideLock lockfile $ \sidelock -> do
linkToLock :: SideLockHandle -> FilePath -> FilePath -> IO Bool
linkToLock Nothing _ _ = return False
linkToLock (Just _) src dest = do
+ -- This might make Lustre notice that a lock file that is already
+ -- there is there?
+ _ <- catchMaybeIO $ readFile dest
_ <- tryIO $ createLink src dest
- ifM (catchBoolIO checklink)
+ ifM (catchBoolIO checklinked)
( catchBoolIO $ do
srccontent <- readFile src
destcontent <- readFile dest
@@ -153,7 +156,7 @@ linkToLock (Just _) src dest = do
, return False
)
where
- checklink = do
+ checklinked = do
x <- getSymbolicLinkStatus src
y <- getSymbolicLinkStatus dest
return $ and