more windows build fix

This commit is contained in:
Joey Hess 2016-02-15 15:03:44 -04:00
parent 2fca8e730f
commit 540a0343ba
Failed to extract signature

View file

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