diff options
| author | Ian Lynagh <igloo@earth.li> | 2010-07-24 13:31:03 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2010-07-24 13:31:03 +0000 |
| commit | 27286cf2ce6733cbbf008972c6bea30ea2e562ee (patch) | |
| tree | 0a2119ce9ef804ddec54b0cc89b57ef5c14ea46a /ghc | |
| parent | 793bde8add5bf57f06ed8e48cd99e84861d01a1a (diff) | |
| download | haskell-27286cf2ce6733cbbf008972c6bea30ea2e562ee.tar.gz | |
Separate the language flags from the other DynFlag's
Diffstat (limited to 'ghc')
| -rw-r--r-- | ghc/InteractiveUI.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs index 6b8f9844ec..8669f94472 100644 --- a/ghc/InteractiveUI.hs +++ b/ghc/InteractiveUI.hs @@ -1403,15 +1403,13 @@ setCmd "" )) io $ putStrLn (showSDoc ( vcat (text "other dynamic, non-language, flag settings:" - :map (flagSetting dflags) nonLanguageDynFlags) + :map (flagSetting dflags) others) )) where flagSetting dflags (str, f, _) | dopt f dflags = text " " <> text "-f" <> text str | otherwise = text " " <> text "-fno-" <> text str (ghciFlags,others) = partition (\(_, f, _) -> f `elem` flags) DynFlags.fFlags - nonLanguageDynFlags = filterOut (\(_, f, _) -> f `elem` languageOptions) - others flags = [Opt_PrintExplicitForalls ,Opt_PrintBindResult ,Opt_BreakOnException |