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 2015-05-22 13:54:54 -04:00
parent 6c3cea7699
commit 83b262f1b6
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Annex/Content.hs
View file

@ -200,7 +200,8 @@ lockContent key a = do
modifyContent lockfile $ modifyContent lockfile $
void $ liftIO $ tryIO $ void $ liftIO $ tryIO $
writeFile lockfile "" writeFile lockfile ""
maybe alreadylocked (return . Just) =<< lockExclusive lockfile maybe alreadylocked (return . Just)
=<< liftIO (lockExclusive lockfile)
-- never reached; windows always uses a separate lock file -- never reached; windows always uses a separate lock file
lock _ Nothing = return Nothing lock _ Nothing = return Nothing
unlock mlockfile mlockhandle = do unlock mlockfile mlockhandle = do