From 0b9edf6282870c8dc87f74eec95caa6bfc49f403 Mon Sep 17 00:00:00 2001 From: Luite Stegeman Date: Wed, 4 Apr 2012 03:08:58 +0200 Subject: [PATCH] properly configure programs --- yesod/ghcwrapper.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/yesod/ghcwrapper.hs b/yesod/ghcwrapper.hs index 9e8afc53..da9921e1 100644 --- a/yesod/ghcwrapper.hs +++ b/yesod/ghcwrapper.hs @@ -12,7 +12,7 @@ import Distribution.Compiler (CompilerFlavor(..)) import Distribution.Simple.Configure (configCompiler) import Distribution.Simple.Program (defaultProgramConfiguration, programPath, ghcProgram, ldProgram, arProgram) -import Distribution.Simple.Program.Db (lookupProgram, configureProgram) +import Distribution.Simple.Program.Db (lookupProgram, configureAllKnownPrograms) import Distribution.Simple.Program.Types (Program(..)) import Distribution.Verbosity (silent) @@ -42,7 +42,7 @@ outFile = "dist/ghcargs.txt" runProgram :: Program -> [String] -> IO ExitCode runProgram pgm args = do (comp, pgmc) <- configCompiler (Just GHC) Nothing Nothing defaultProgramConfiguration silent - pgmc' <- configureProgram silent pgm pgmc + pgmc' <- configureAllKnownPrograms silent pgmc case lookupProgram pgm pgmc' of Nothing -> do hPutStrLn stderr ("cannot find program '" ++ programName pgm ++ "'")