Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Shayne Fletcher
Glasgow Haskell Compiler
Commits
f586a36d
Commit
f586a36d
authored
Jun 14, 2008
by
Ian Lynagh
Browse files
eta-reduce a Monad type synonym, so we can use it non-applied
parent
0079141c
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/main/Main.hs
View file @
f586a36d
...
...
@@ -363,11 +363,11 @@ parseModeFlags args = do
throwDyn
(
UsageError
(
unlines
errs
))
return
(
mode
,
flags
++
leftover
)
type
ModeM
a
=
CmdLineP
(
CmdLineMode
,
String
,
[
String
])
a
type
ModeM
=
CmdLineP
(
CmdLineMode
,
String
,
[
String
])
-- mode flags sometimes give rise to new DynFlags (eg. -C, see below)
-- so we collect the new ones and return them.
mode_flags
::
[
Flag
(
CmdLineP
(
CmdLineMode
,
String
,
[
String
]))
]
mode_flags
::
[
Flag
ModeM
]
mode_flags
=
[
------- help / version ----------------------------------------------
Flag
"?"
(
PassFlag
(
setMode
ShowUsage
))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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