throwDyn (UsageError (unlines errs))
return (mode, flags ++ leftover)
throwDyn (UsageError (unlines errs))
return (mode, flags ++ leftover)
-- mode flags sometimes give rise to new DynFlags (eg. -C, see below)
-- so we collect the new ones and return them.
-- mode flags sometimes give rise to new DynFlags (eg. -C, see below)
-- so we collect the new ones and return them.
mode_flags =
[ ------- help / version ----------------------------------------------
Flag "?" (PassFlag (setMode ShowUsage))
mode_flags =
[ ------- help / version ----------------------------------------------
Flag "?" (PassFlag (setMode ShowUsage))