diff options
Diffstat (limited to 'compiler/main/SysTools.hs')
| -rw-r--r-- | compiler/main/SysTools.hs | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/compiler/main/SysTools.hs b/compiler/main/SysTools.hs index c3d154f0e6..ff36c04ecf 100644 --- a/compiler/main/SysTools.hs +++ b/compiler/main/SysTools.hs @@ -110,17 +110,16 @@ stuff. ************************************************************************ -} -initLlvmConfig :: Maybe String - -> IO LlvmConfig -initLlvmConfig mbMinusB +initLlvmConfig :: String + -> IO LlvmConfig +initLlvmConfig top_dir = do targets <- readAndParse "llvm-targets" mkLlvmTarget passes <- readAndParse "llvm-passes" id return (targets, passes) where readAndParse name builder = - do top_dir <- findTopDir mbMinusB - let llvmConfigFile = top_dir </> name + do let llvmConfigFile = top_dir </> name llvmConfigStr <- readFile llvmConfigFile case maybeReadFuzzy llvmConfigStr of Just s -> return (fmap builder <$> s) @@ -130,14 +129,13 @@ initLlvmConfig mbMinusB mkLlvmTarget (dl, cpu, attrs) = LlvmTarget dl cpu (words attrs) -initSysTools :: Maybe String -- Maybe TopDir path (without the '-B' prefix) +initSysTools :: String -- TopDir path -> IO Settings -- Set all the mutable variables above, holding -- (a) the system programs -- (b) the package-config file -- (c) the GHC usage message -initSysTools mbMinusB - = do top_dir <- findTopDir mbMinusB - -- see Note [topdir: How GHC finds its files] +initSysTools top_dir + = do -- see Note [topdir: How GHC finds its files] -- NB: top_dir is assumed to be in standard Unix -- format, '/' separated mtool_dir <- findToolDir top_dir |