Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
caf21123
Commit
caf21123
authored
Jul 16, 2009
by
Ian Lynagh
Browse files
Move showOpt into DynFlags
parent
1c198086
Changes
2
Hide whitespace changes
Inline
Side-by-side
compiler/main/DynFlags.hs
View file @
caf21123
...
...
@@ -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
...
...
compiler/main/SysTools.lhs
View file @
caf21123
...
...
@@ -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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment