Commit caf21123 authored by Ian Lynagh's avatar Ian Lynagh

Move showOpt into DynFlags

parent 1c198086
......@@ -17,7 +17,7 @@ module DynFlags (
GhcMode(..), isOneShot,
GhcLink(..), isNoLink,
PackageFlag(..),
Option(..),
Option(..), showOpt,
DynLibLoader(..),
fFlags, xFlags,
dphPackage,
......@@ -854,6 +854,10 @@ data Option
String -- the filepath/filename portion
| Option String
showOpt :: Option -> String
showOpt (FileOption pre f) = pre ++ f
showOpt (Option s) = s
-----------------------------------------------------------------------------
-- Setting the optimisation level
......
......@@ -711,10 +711,6 @@ data BuildMessage
| BuildError !SrcLoc !SDoc
| EOF
showOpt :: Option -> String
showOpt (FileOption pre f) = pre ++ f
showOpt (Option s) = s
traceCmd :: DynFlags -> String -> String -> IO () -> IO ()
-- a) trace the command (at two levels of verbosity)
-- b) don't do it at all if dry-run is set
......
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