diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-10-02 22:59:07 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-10-02 22:59:07 -0400 |
| commit | c81a8bd68c53348b9e561dc588499452a5a654c7 (patch) | |
| tree | d1c52c78723784f20c33763c282860878d19f979 /Assistant/Threads/Transferrer.hs | |
| parent | 0d14a987dc4887de5516497206356652e846c996 (diff) | |
hlint
Diffstat (limited to 'Assistant/Threads/Transferrer.hs')
| -rw-r--r-- | Assistant/Threads/Transferrer.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Assistant/Threads/Transferrer.hs b/Assistant/Threads/Transferrer.hs index 67a8c2a7b..98f8b6ad7 100644 --- a/Assistant/Threads/Transferrer.hs +++ b/Assistant/Threads/Transferrer.hs @@ -31,7 +31,7 @@ transfererThread :: NamedThread transfererThread = namedThread "Transferrer" $ do program <- liftIO readProgramFile forever $ inTransferSlot program $ - maybe (return Nothing) (uncurry $ genTransfer) + maybe (return Nothing) (uncurry genTransfer) =<< getNextTransfer notrunning where {- Skip transfers that are already running. -} @@ -96,7 +96,7 @@ genTransfer t info = case (transferRemote info, associatedFile info) of True (transferKey t) (associatedFile info) (Just remote) - void $ recordCommit + void recordCommit , whenM (liftAnnex $ isNothing <$> checkTransfer t) $ void $ removeTransfer t ) |