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 2016-02-15 14:58:45 -04:00
parent dfbb5db3a8
commit f55c576923
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

@ -105,7 +105,7 @@ runTransfer' ignorelock t file shouldretry transferobserver transferaction = do
, return (Nothing, True) , return (Nothing, True)
) )
#else #else
prep tfile _mode info = catchPermissionDenied (const prepfailed) liftIO $ 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 $ lockExclusive lck