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