summaryrefslogtreecommitdiff
path: root/Annex/Transfer.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Annex/Transfer.hs')
-rw-r--r--Annex/Transfer.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Annex/Transfer.hs b/Annex/Transfer.hs
index af9d89f4d..460376b7e 100644
--- a/Annex/Transfer.hs
+++ b/Annex/Transfer.hs
@@ -105,7 +105,7 @@ runTransfer' ignorelock t file shouldretry transferobserver transferaction = do
, return (Nothing, True)
)
#else
- prep tfile _mode info = catchPermissionDenied (const prepfailed) liftIO $ do
+ prep tfile _mode info = catchPermissionDenied (const prepfailed) $ do
let lck = transferLockFile tfile
createAnnexDirectory $ takeDirectory lck
v <- catchMaybeIO $ lockExclusive lck