diff options
Diffstat (limited to 'Annex/Transfer.hs')
| -rw-r--r-- | Annex/Transfer.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Annex/Transfer.hs b/Annex/Transfer.hs index ad617a7df..0d013d411 100644 --- a/Annex/Transfer.hs +++ b/Annex/Transfer.hs @@ -96,7 +96,7 @@ runTransfer' ignorelock t afile shouldretry transferaction = checkSecureHashes t Nothing -> return (Nothing, True) Just lockhandle -> ifM (checkSaneLock lck lockhandle) ( do - void $ liftIO $ tryIO $ + void $ tryIO $ writeTransferInfoFile info tfile return (Just lockhandle, False) , do @@ -111,7 +111,7 @@ runTransfer' ignorelock t afile shouldretry transferaction = checkSecureHashes t Nothing -> return (Nothing, False) Just Nothing -> return (Nothing, True) Just (Just lockhandle) -> do - void $ liftIO $ tryIO $ + void $ tryIO $ writeTransferInfoFile info tfile return (Just lockhandle, False) #endif |