diff options
| -rw-r--r-- | Assistant/ScanRemotes.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/ScanRemotes.hs b/Assistant/ScanRemotes.hs index 85a29584e..bfe953803 100644 --- a/Assistant/ScanRemotes.hs +++ b/Assistant/ScanRemotes.hs @@ -47,7 +47,7 @@ addScanRemotes v full rs = 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 (Remote.cost r) full + info r = ScanInfo (-1 * Remote.cost r) full merge x y = ScanInfo { scanPriority = max (scanPriority x) (scanPriority y) , fullScan = fullScan x || fullScan y |