Commit e8459fd6 authored by ian@well-typed.com's avatar ian@well-typed.com

A little polishing

parent a272adf4
......@@ -640,7 +640,7 @@ getLinkDeps hsc_env hpt pls replace_osuf span mods
-- When looking for dynamic object files, we try both
-- .dyn_o and .o, with a preference for the former.
use_dyn <- if cDYNAMIC_GHC_PROGRAMS
then do doesFileExist dyn_file
then doesFileExist dyn_file
else return False
if use_dyn
then return (DotO dyn_file)
......
......@@ -74,6 +74,7 @@ module DynFlags (
-- ** Manipulating DynFlags
defaultDynFlags, -- Settings -> DynFlags
defaultWays,
interpWays,
initDynFlags, -- DynFlags -> IO DynFlags
defaultFatalMessager,
defaultLogAction,
......@@ -1337,6 +1338,11 @@ defaultWays settings = if pc_DYNAMIC_BY_DEFAULT (sPlatformConstants settings)
then [WayDyn]
else []
interpWays :: [Way]
interpWays = if cDYNAMIC_GHC_PROGRAMS
then [WayDyn]
else []
--------------------------------------------------------------------------
type FatalMessager = String -> IO ()
......
......@@ -234,11 +234,6 @@ ghciUI _ _ = throwGhcException (CmdLineError "not built for interactive use")
ghciUI = interactiveUI defaultGhciSettings
#endif
interpWays :: [Way]
interpWays = if cDYNAMIC_GHC_PROGRAMS
then [WayDyn]
else []
-- -----------------------------------------------------------------------------
-- Splitting arguments into source files and object files. This is where we
-- interpret the -x <suffix> option, and attach a (Maybe Phase) to each source
......
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