fix warning

diff --git a/Utility/LockFile/PidLock.hs b/Utility/LockFile/PidLock.hs
index 9c70cc05a8099616114f775ccda75aec68e94a8f..086e771aac952dafb4cdf9a1d338b5ce1c9e59bf 100644 (file)
--- 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