summaryrefslogtreecommitdiff
path: root/Logs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-09-17 00:18:07 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-09-17 00:18:07 -0400
commite8188ea611e4c9223492203c0ec0370c3c45b225 (patch)
tree2a078993be28d1dedc38f8ab9ad193eea0ecf90e /Logs
parentba744c84a4f683e50bf4c9b8c388e3a611f7fb91 (diff)
flip catchDefaultIO
Diffstat (limited to 'Logs')
-rw-r--r--Logs/Transfer.hs5
1 files changed, 2 insertions, 3 deletions
diff --git a/Logs/Transfer.hs b/Logs/Transfer.hs
index a58944a83..a641c4882 100644
--- a/Logs/Transfer.hs
+++ b/Logs/Transfer.hs
@@ -134,9 +134,8 @@ checkTransfer t = do
liftIO $ closeFd fd
case locked of
Nothing -> return Nothing
- Just (pid, _) -> liftIO $
- flip catchDefaultIO Nothing $
- readTransferInfoFile (Just pid) tfile
+ Just (pid, _) -> liftIO $ catchDefaultIO Nothing $
+ readTransferInfoFile (Just pid) tfile
{- Gets all currently running transfers. -}
getTransfers :: Annex [(Transfer, TransferInfo)]