From 100a816f725294b13aeb33937d3fd6b49735b7c9 Mon Sep 17 00:00:00 2001 From: Daniel Gröber Date: Fri, 26 Oct 2018 04:18:37 +0200 Subject: Whitespace changes --- lib/Distribution/Helper.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/Distribution/Helper.hs b/lib/Distribution/Helper.hs index 452bb91..fe9ef44 100644 --- a/lib/Distribution/Helper.hs +++ b/lib/Distribution/Helper.hs @@ -312,7 +312,7 @@ discardInactiveUnitInfos -> Map DistDirLib UnitInfo -> Map DistDirLib UnitInfo discardInactiveUnitInfos active_units uis0 = - restrictKeysMap uis0 $ Set.fromList $ map uDistDir active_units + restrictKeysMap uis0 $ Set.fromList $ map uDistDir active_units where restrictKeysMap :: Ord k => Map k a -> Set k -> Map k a restrictKeysMap m s = Map.filterWithKey (\k _ -> Set.member k s) m @@ -549,7 +549,7 @@ getSandboxPkgDb -- @cabal.sandbox.config@ file -> IO (Maybe FilePath) getSandboxPkgDb buildPlat ghc_ver projdir = - CabalHelper.Shared.Sandbox.getSandboxPkgDb buildPlat ghc_ver projdir + CabalHelper.Shared.Sandbox.getSandboxPkgDb buildPlat ghc_ver projdir buildPlatform :: String buildPlatform = display Distribution.System.buildPlatform -- cgit v1.2.3