Use --with-compiler and --with-hc-pkg.

haskell · Oct 13, 2007 · f0d73ad · f0d73ad
1 parent 451eb23
commit f0d73ad
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 4 deletions.
diff --git a/Hackage/Config.hs b/Hackage/Config.hs
@@ -128,11 +128,13 @@ pkgURL pkg = joinWith "/" [repoURL (pkgRepo pkg), pkgName p, showVersion (pkgVer
 -- * Compiler and programs
 --
 
--- FIXME: should use --with flags
 findCompiler :: ConfigFlags -> IO (Compiler, ProgramConfiguration)
 findCompiler cfg = Configure.configCompiler 
                      (Just (configCompiler cfg)) 
-                     Nothing Nothing defaultProgramConfiguration (configVerbose cfg)
+                     (configCompilerPath cfg)
+                     (configHcPkgPath cfg)
+                     defaultProgramConfiguration 
+                     (configVerbose cfg)
 
 --
 -- * Default config
@@ -159,6 +161,8 @@ defaultConfigFlags =
        cacheDir    <- defaultCacheDir
        return $ ConfigFlags 
                { configCompiler    = defaultCompiler
+               , configCompilerPath = Nothing
+               , configHcPkgPath   = Nothing
                , configInstallDirs = installDirs { prefixDirTemplate = toPathTemplate defaultPrefix }
                , configCacheDir    = cacheDir
                , configRepos       = [Repo "hackage.haskell.org" "http://hackage.haskell.org/packages/archive"]

diff --git a/Hackage/Setup.hs b/Hackage/Setup.hs
@@ -81,8 +81,8 @@ configFromOptions :: ConfigFlags -> [Option] -> ConfigFlags
 configFromOptions = foldr f
   where f o cfg = case o of
                     OptCompilerFlavor c -> cfg { configCompiler = c}
-                    OptCompiler _       -> cfg -- FIXME: where do we store this?
-                    OptHcPkg _          -> cfg -- FIXME: where do we store this?
+                    OptCompiler p       -> cfg { configCompilerPath = Just p }
+                    OptHcPkg p          -> cfg { configHcPkgPath = Just p }
                     OptConfigFile _     -> cfg
                     OptCacheDir d       -> cfg { configCacheDir = d }
                     OptPrefix     d     -> lib (\ds x -> ds { prefixDirTemplate  = x }) d

diff --git a/Hackage/Types.hs b/Hackage/Types.hs
@@ -60,6 +60,8 @@ data Option = OptCompilerFlavor CompilerFlavor
 
 data ConfigFlags = ConfigFlags {
         configCompiler    :: CompilerFlavor,
+        configCompilerPath :: Maybe FilePath,
+        configHcPkgPath   :: Maybe FilePath,
         configInstallDirs :: InstallDirTemplates,
         configCacheDir    :: FilePath,
         configRepos       :: [Repo],       -- ^Available Hackage servers.