mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix warning

Browse source
This commit is contained in:
Joey Hess 2015-11-16 15:37:27 -04:00
parent 262c37c16e
commit c670a0642c
Failed to extract signature
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Utility/LockFile/PidLock.hs
View file

@ -231,7 +231,7 @@ checkLocked lockfile = conv <$> getLockStatus lockfile
-- Checks that the lock file still exists, and is the same file that was -- Checks that the lock file still exists, and is the same file that was
-- locked to get the LockHandle. -- locked to get the LockHandle.
checkSaneLock :: LockFile -> LockHandle -> IO Bool checkSaneLock :: LockFile -> LockHandle -> IO Bool
checkSaneLock lockfile (LockHandle f st _) = checkSaneLock lockfile (LockHandle _ st _) =
go =<< catchMaybeIO (getFileStatus lockfile) go =<< catchMaybeIO (getFileStatus lockfile)
where where
go Nothing = return False go Nothing = return False