From e464ffd6413e4e5b72552e06f57517553385e78e Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 3 Dec 2021 18:41:51 -0400 Subject: [PATCH] update comment to current status --- Utility/LockFile/PidLock.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Utility/LockFile/PidLock.hs b/Utility/LockFile/PidLock.hs index 786b961572..2646de94a8 100644 --- a/Utility/LockFile/PidLock.hs +++ b/Utility/LockFile/PidLock.hs @@ -279,7 +279,7 @@ waitedLock (Seconds timeout) lockfile displaymessage = do giveup $ "Gave up waiting for pid lock file " ++ fromRawFilePath lockfile -- | Use when the pid lock has already been taken by another thread of the --- same process, or perhaps is in the process of being taken. +-- same process. alreadyLocked :: MonadIO m => LockFile -> m LockHandle alreadyLocked lockfile = liftIO $ do abslockfile <- absPath lockfile