diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-11-16 15:37:27 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-11-16 15:37:27 -0400 |
| commit | c5a2606a671c72dd875c53e9a4963aefd3ed613b (patch) | |
| tree | 665362b7a79197581a66c4fa4b97a5a121bf61f1 | |
| parent | 7d5a6b9fea20a0aec0e716ea855b46e460b3da7d (diff) | |
fix warning
| -rw-r--r-- | Utility/LockFile/PidLock.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Utility/LockFile/PidLock.hs b/Utility/LockFile/PidLock.hs index 9c70cc05a..086e771aa 100644 --- a/Utility/LockFile/PidLock.hs +++ b/Utility/LockFile/PidLock.hs @@ -231,7 +231,7 @@ checkLocked lockfile = conv <$> getLockStatus lockfile -- Checks that the lock file still exists, and is the same file that was -- locked to get the LockHandle. checkSaneLock :: LockFile -> LockHandle -> IO Bool -checkSaneLock lockfile (LockHandle f st _) = +checkSaneLock lockfile (LockHandle _ st _) = go =<< catchMaybeIO (getFileStatus lockfile) where go Nothing = return False |