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

more windows build fix

Browse source
This commit is contained in:
Joey Hess 2016-02-15 15:03:44 -04:00
parent 2fca8e730f
commit 540a0343ba
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
Annex/Transfer.hs
View file

@ -108,7 +108,7 @@ runTransfer' ignorelock t file shouldretry transferobserver transferaction = do
prep tfile _mode info = catchPermissionDenied (const prepfailed) $ do prep tfile _mode info = catchPermissionDenied (const prepfailed) $ do
let lck = transferLockFile tfile let lck = transferLockFile tfile
createAnnexDirectory $ takeDirectory lck createAnnexDirectory $ takeDirectory lck
v <- catchMaybeIO $ lockExclusive lck v <- catchMaybeIO $ liftIO $ lockExclusive lck
case v of case v of
Nothing -> return (Nothing, False) Nothing -> return (Nothing, False)
Just Nothing -> return (Nothing, True) Just Nothing -> return (Nothing, True)