diff options
Diffstat (limited to 'ghc/Main.hs')
| -rw-r--r-- | ghc/Main.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/ghc/Main.hs b/ghc/Main.hs index 3cb71b77e8..8e30d1a765 100644 --- a/ghc/Main.hs +++ b/ghc/Main.hs @@ -560,10 +560,9 @@ parseModeFlags :: [Located String] [Located String], [Warn]) parseModeFlags args = do - let ((leftover, errs1, warns), (mModeFlag, units, errs2, flags')) = - runCmdLine (processArgs mode_flags args) - (Nothing, [], [], []) - mode = case mModeFlag of + ((leftover, errs1, warns), (mModeFlag, units, errs2, flags')) <- + processCmdLineP mode_flags (Nothing, [], [], []) args + let mode = case mModeFlag of Nothing -> doMakeMode Just (m, _) -> m |