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

eta-reduce a Monad type synonym, so we can use it non-applied

parent 0079141c
......@@ -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))
......
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