diff options
author | Joey Hess <joey@kitenet.net> | 2012-09-13 00:57:52 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-09-13 00:57:52 -0400 |
commit | df337bb63b4ed6e5d2ce563ec89d28d192e791db (patch) | |
tree | 638813a415727b8a5441ba450e20e6dc2632c970 /Assistant/Threads/TransferScanner.hs | |
parent | a3913f52e52777b18bd8e50ff593a4f4085e8b93 (diff) |
hlint
Diffstat (limited to 'Assistant/Threads/TransferScanner.hs')
-rw-r--r-- | Assistant/Threads/TransferScanner.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Assistant/Threads/TransferScanner.hs b/Assistant/Threads/TransferScanner.hs index ecb9021f0..d8719f027 100644 --- a/Assistant/Threads/TransferScanner.hs +++ b/Assistant/Threads/TransferScanner.hs @@ -43,7 +43,7 @@ transferScannerThread st dstatus scanremotes transferqueue = thread $ do if any fullScan infos || any (`S.notMember` scanned) rs then do expensiveScan st dstatus transferqueue rs - go (S.union scanned (S.fromList rs)) + go $ scanned `S.union` S.fromList rs else do mapM_ (failedTransferScan st dstatus transferqueue) rs go scanned @@ -129,7 +129,7 @@ expensiveScan st dstatus transferqueue rs = unless onlyweb $ do ) check direction want key locs r | direction == Upload && Remote.readonly r = Nothing - | (Remote.uuid r `elem` locs) == want = Just $ + | (Remote.uuid r `elem` locs) == want = Just (r, Transfer direction (Remote.uuid r) key) | otherwise = Nothing |