where indentation

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 
+		}