diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-11-12 15:38:02 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-11-12 15:39:49 -0400 |
| commit | 0c24c5e78a6c460caa02075857dbf7efd6239857 (patch) | |
| tree | 35f366c3a023999fd9a18c9a109bb8930185016e /Utility/LockFile/Posix.hs | |
| parent | b42df643c6512ecdc29bf1aeb20fd842528c41f7 (diff) | |
module for pid lock files with atomic stale lock file takeover when possible
Diffstat (limited to 'Utility/LockFile/Posix.hs')
| -rw-r--r-- | Utility/LockFile/Posix.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/Utility/LockFile/Posix.hs b/Utility/LockFile/Posix.hs index cf88fa87d..b1c4cc551 100644 --- a/Utility/LockFile/Posix.hs +++ b/Utility/LockFile/Posix.hs @@ -20,6 +20,7 @@ module Utility.LockFile.Posix ( import Utility.Exception import Utility.Applicative +import Utility.LockFile.LockStatus import System.IO import System.Posix @@ -80,9 +81,6 @@ openLockFile lockreq filemode lockfile = do checkLocked :: LockFile -> IO (Maybe Bool) checkLocked = maybe Nothing (Just . isJust) <$$> getLockStatus' -data LockStatus = StatusUnLocked | StatusLockedBy ProcessID | StatusNoLockFile - deriving (Eq) - getLockStatus :: LockFile -> IO LockStatus getLockStatus lockfile = do v <- getLockStatus' lockfile |