Commit caf21123 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Move showOpt into DynFlags

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