From c5a2606a671c72dd875c53e9a4963aefd3ed613b Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 16 Nov 2015 15:37:27 -0400 Subject: fix warning --- 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 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 -- cgit v1.2.3