Commit 0ce8bd9b authored by Mikhail Glushenkov's avatar Mikhail Glushenkov
Browse files

Whitespace.

parent be5eadab
......@@ -15,7 +15,7 @@
-- configured and not-yet configured programs. It is the parameter to lots of
-- actions elsewhere in Cabal that need to look up and run programs. If we had
-- a Cabal monad, the 'ProgramDb' would probably be a reader or
-- state component of it.
-- state component of it.
--
-- The module also defines all the known built-in 'Program's and the
-- 'defaultProgramConfiguration' which contains them all.
......
......@@ -307,17 +307,17 @@ deletePackageDB dbPath = do
-- provided command-line arguments to it.
invokeHcPkg :: Verbosity -> Compiler -> ProgramDb -> PackageDBStack
-> [String] -> IO ()
invokeHcPkg verbosity comp conf dbStack extraArgs =
withHcPkg "invokeHcPkg" comp conf
invokeHcPkg verbosity comp progdb dbStack extraArgs =
withHcPkg "invokeHcPkg" comp progdb
(\hpi -> HcPkg.invoke hpi verbosity dbStack extraArgs)
withHcPkg :: String -> Compiler -> ProgramDb
-> (HcPkg.HcPkgInfo -> IO a) -> IO a
withHcPkg name comp conf f =
withHcPkg name comp progdb f =
case compilerFlavor comp of
GHC -> f (GHC.hcPkgInfo conf)
GHCJS -> f (GHCJS.hcPkgInfo conf)
LHC -> f (LHC.hcPkgInfo conf)
GHC -> f (GHC.hcPkgInfo progdb)
GHCJS -> f (GHCJS.hcPkgInfo progdb)
LHC -> f (LHC.hcPkgInfo progdb)
_ -> die ("Distribution.Simple.Register." ++ name ++ ":\
\not implemented for this compiler")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment