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

fix windows build

Browse source
This commit is contained in:
Joey Hess 2017-12-05 13:11:03 -04:00
parent fd24034e56
commit 639a6df58a
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Annex/Content.hs
View file

@ -170,7 +170,7 @@ inAnnexSafe key = inAnnex' (fromMaybe True) (Just False) go key
checkdirect contentfile lockfile = checkdirect contentfile lockfile =
ifM (liftIO $ doesFileExist contentfile) ifM (liftIO $ doesFileExist contentfile)
( modifyContent lockfile $ liftIO $ ( modifyContent lockfile $ liftIO $
lockShared >>= \case lockShared lockfile >>= \case
Nothing -> return is_locked Nothing -> return is_locked
Just lockhandle -> do Just lockhandle -> do
dropLock lockhandle dropLock lockhandle