diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-08-07 13:31:43 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-08-07 13:31:43 -0400 |
| commit | 7e2d07484f2ae9912f34e30e8b5614fb86099eed (patch) | |
| tree | 23606c3d4779317484683daf6d88d05dce6be260 /Logs | |
| parent | a66e1f68caeb045dc0c81388076915f5f06bddec (diff) | |
| parent | 2a9077f4e92b588200eafcda4d485e95998917a2 (diff) | |
Merge branch 'master' into assistant
Diffstat (limited to 'Logs')
| -rw-r--r-- | Logs/Transfer.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Logs/Transfer.hs b/Logs/Transfer.hs index b0e21481c..b7074592e 100644 --- a/Logs/Transfer.hs +++ b/Logs/Transfer.hs @@ -105,8 +105,8 @@ runTransfer t file a = do writeFile tfile $ writeTransferInfo info return fd cleanup tfile fd = do - removeFile tfile - removeFile $ transferLockFile tfile + void $ tryIO $ removeFile tfile + void $ tryIO $ removeFile $ transferLockFile tfile closeFd fd {- If a transfer is still running, returns its TransferInfo. -} |