summaryrefslogtreecommitdiff
path: root/Assistant/Threads/Glacier.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Assistant/Threads/Glacier.hs')
-rw-r--r--Assistant/Threads/Glacier.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/Threads/Glacier.hs b/Assistant/Threads/Glacier.hs
index 46f64cd56..4c4012a67 100644
--- a/Assistant/Threads/Glacier.hs
+++ b/Assistant/Threads/Glacier.hs
@@ -30,7 +30,7 @@ glacierThread = namedThread "Glacier" $ runEvery (Seconds 3600) <~> go
go = do
rs <- filter isglacier . syncDataRemotes <$> getDaemonStatus
forM_ rs $ \r ->
- check r =<< (liftAnnex $ getFailedTransfers $ Remote.uuid r)
+ check r =<< liftAnnex (getFailedTransfers $ Remote.uuid r)
check _ [] = noop
check r l = do
let keys = map getkey l