haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

properly configure programs

Browse Source
This commit is contained in:
Luite Stegeman 2012-04-04 03:08:58 +02:00
parent c097d289f8
commit 0b9edf6282
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
yesod/ghcwrapper.hs
View File

@ -12,7 +12,7 @@ import Distribution.Compiler (CompilerFlavor(..))
import Distribution.Simple.Configure (configCompiler) import Distribution.Simple.Configure (configCompiler)
import Distribution.Simple.Program (defaultProgramConfiguration, programPath, ghcProgram, import Distribution.Simple.Program (defaultProgramConfiguration, programPath, ghcProgram,
ldProgram, arProgram) ldProgram, arProgram)
import Distribution.Simple.Program.Db (lookupProgram, configureProgram) import Distribution.Simple.Program.Db (lookupProgram, configureAllKnownPrograms)
import Distribution.Simple.Program.Types (Program(..)) import Distribution.Simple.Program.Types (Program(..))
import Distribution.Verbosity (silent) import Distribution.Verbosity (silent)
@ -42,7 +42,7 @@ outFile = "dist/ghcargs.txt"
runProgram :: Program -> [String] -> IO ExitCode runProgram :: Program -> [String] -> IO ExitCode
runProgram pgm args = do runProgram pgm args = do
(comp, pgmc) <- configCompiler (Just GHC) Nothing Nothing defaultProgramConfiguration silent (comp, pgmc) <- configCompiler (Just GHC) Nothing Nothing defaultProgramConfiguration silent
pgmc' <- configureProgram silent pgm pgmc pgmc' <- configureAllKnownPrograms silent pgmc
case lookupProgram pgm pgmc' of case lookupProgram pgm pgmc' of
Nothing -> do Nothing -> do
hPutStrLn stderr ("cannot find program '" ++ programName pgm ++ "'") hPutStrLn stderr ("cannot find program '" ++ programName pgm ++ "'")