diff options
| author | David Terei <davidterei@gmail.com> | 2011-05-10 16:36:44 -0700 |
|---|---|---|
| committer | David Terei <davidterei@gmail.com> | 2011-06-17 18:39:29 -0700 |
| commit | f04bbfdb0e8187c6ace27fc3a5627a8910310241 (patch) | |
| tree | 88a4cb323e1a9289a87d262f2d298dea2d516ade /ghc/InteractiveUI.hs | |
| parent | 3cf28893a949775b01e6bd870ad9c7f2fa68b76f (diff) | |
| download | haskell-f04bbfdb0e8187c6ace27fc3a5627a8910310241.tar.gz | |
SafeHaskell: Fix a warning stopping validation
Diffstat (limited to 'ghc/InteractiveUI.hs')
| -rw-r--r-- | ghc/InteractiveUI.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs index 2d8d6ff02d..8b4422e487 100644 --- a/ghc/InteractiveUI.hs +++ b/ghc/InteractiveUI.hs @@ -1794,10 +1794,12 @@ showPackages = do liftIO $ putStrLn $ showSDoc $ vcat $ text ("active package flags:"++if null pkg_flags then " none" else "") : map showFlag pkg_flags - where showFlag (ExposePackage p) = text $ " -package " ++ p - showFlag (HidePackage p) = text $ " -hide-package " ++ p - showFlag (IgnorePackage p) = text $ " -ignore-package " ++ p + where showFlag (ExposePackage p) = text $ " -package " ++ p + showFlag (HidePackage p) = text $ " -hide-package " ++ p + showFlag (IgnorePackage p) = text $ " -ignore-package " ++ p showFlag (ExposePackageId p) = text $ " -package-id " ++ p + showFlag (TrustPackage p) = text $ " -trust " ++ p + showFlag (DistrustPackage p) = text $ " -distrust " ++ p showLanguages :: GHCi () showLanguages = do |