diff options
| author | David Terei <davidterei@gmail.com> | 2011-10-06 18:33:01 -0700 |
|---|---|---|
| committer | David Terei <davidterei@gmail.com> | 2011-10-17 13:50:07 -0700 |
| commit | 189f6663d41367f34f1b34819d344f1be3495a84 (patch) | |
| tree | 647c70f2053fe29ef8bb7d8d3d1f6918dea6e250 /ghc/InteractiveUI.hs | |
| parent | 926cadfe300b7ec03c0407f172f99183ab1c41e3 (diff) | |
| download | haskell-189f6663d41367f34f1b34819d344f1be3495a84.tar.gz | |
Remove cruft code from old Safe Haskell implementation method
Diffstat (limited to 'ghc/InteractiveUI.hs')
| -rw-r--r-- | ghc/InteractiveUI.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs index c635b94d1c..897f3f3d28 100644 --- a/ghc/InteractiveUI.hs +++ b/ghc/InteractiveUI.hs @@ -1728,17 +1728,17 @@ setCmd "" nest 2 (vcat (map (warnSetting dflags) DynFlags.fWarningFlags)) )) - where flagSetting dflags (str, _, f, _) + where flagSetting dflags (str, f, _) | dopt f dflags = fstr str | otherwise = fnostr str - warnSetting dflags (str, _, f, _) + warnSetting dflags (str, f, _) | wopt f dflags = fstr str | otherwise = fnostr str fstr str = text "-f" <> text str fnostr str = text "-fno-" <> text str - (ghciFlags,others) = partition (\(_, _, f, _) -> f `elem` flags) + (ghciFlags,others) = partition (\(_, f, _) -> f `elem` flags) DynFlags.fFlags flags = [Opt_PrintExplicitForalls ,Opt_PrintBindResult @@ -2021,7 +2021,7 @@ showLanguages = do dflags <- getDynFlags liftIO $ putStrLn $ showSDoc $ vcat $ text "active language flags:" : - [text (" -X" ++ str) | (str, _, f, _) <- DynFlags.xFlags, xopt f dflags] + [text (" -X" ++ str) | (str, f, _) <- DynFlags.xFlags, xopt f dflags] -- ----------------------------------------------------------------------------- |