diff options
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 |