diff options
| author | Joachim Breitner <mail@joachim-breitner.de> | 2021-03-10 15:28:40 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2021-03-10 16:57:59 -0500 |
| commit | 30ccf9ed1f592531dac9f3d750278fac6303c3e4 (patch) | |
| tree | 4b325e15f5fdba50d0bab2924354628ce2ccbd49 /ghc | |
| parent | 8a59f49ae2204dbf58ef50ea8c0a50ee2c7aa64a (diff) | |
| download | haskell-30ccf9ed1f592531dac9f3d750278fac6303c3e4.tar.gz | |
Introduce GHC2021 language
This adds support for -XGHC2021, as described in Proposal 0380 [1].
[1] https://github.com/ghc-proposals/ghc-proposals/blob/master/proposals/0380-ghc2021.rst
Diffstat (limited to 'ghc')
| -rw-r--r-- | ghc/GHCi/UI.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ghc/GHCi/UI.hs b/ghc/GHCi/UI.hs index 0ac6fe4d9c..720f57a4e3 100644 --- a/ghc/GHCi/UI.hs +++ b/ghc/GHCi/UI.hs @@ -3348,10 +3348,10 @@ showLanguages' :: Bool -> DynFlags -> IO () showLanguages' show_all dflags = putStrLn $ showSDoc dflags $ vcat [ text "base language is: " <> - case language dflags of - Nothing -> text "Haskell2010" - Just Haskell98 -> text "Haskell98" - Just Haskell2010 -> text "Haskell2010" + case lang of + Haskell98 -> text "Haskell98" + Haskell2010 -> text "Haskell2010" + GHC2021 -> text "GHC2021" , (if show_all then text "all active language options:" else text "with the following modifiers:") $$ nest 2 (vcat (map (setting xopt) DynFlags.xFlags)) |