diff options
Diffstat (limited to 'Assistant/ScanRemotes.hs')
| -rw-r--r-- | Assistant/ScanRemotes.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/Assistant/ScanRemotes.hs b/Assistant/ScanRemotes.hs index f367ab745..2743c0f36 100644 --- a/Assistant/ScanRemotes.hs +++ b/Assistant/ScanRemotes.hs @@ -33,9 +33,9 @@ addScanRemotes full rs = do liftIO $ atomically $ do m <- fromMaybe M.empty <$> tryTakeTMVar v putTMVar v $ M.unionWith merge (M.fromList $ zip rs (map info rs)) m - where - info r = ScanInfo (-1 * Remote.cost r) full - merge x y = ScanInfo - { scanPriority = max (scanPriority x) (scanPriority y) - , fullScan = fullScan x || fullScan y - } + where + info r = ScanInfo (-1 * Remote.cost r) full + merge x y = ScanInfo + { scanPriority = max (scanPriority x) (scanPriority y) + , fullScan = fullScan x || fullScan y + } |