diff options
| author | Joachim Breitner <mail@joachim-breitner.de> | 2021-03-10 15:28:48 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2021-03-10 16:58:50 -0500 |
| commit | 115cd3c85a8c38f1fe2a10d4ee515f92c96dd5a2 (patch) | |
| tree | 19214707fa15f127d05ae515c74cff7e85776a7c /ghc | |
| parent | 30ccf9ed1f592531dac9f3d750278fac6303c3e4 (diff) | |
| download | haskell-115cd3c85a8c38f1fe2a10d4ee515f92c96dd5a2.tar.gz | |
Use GHC2021 as default language
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 720f57a4e3..10a9cfa71d 100644 --- a/ghc/GHCi/UI.hs +++ b/ghc/GHCi/UI.hs @@ -3367,10 +3367,10 @@ showLanguages' show_all dflags = quiet = not show_all && test f default_dflags == is_on default_dflags = - defaultDynFlags (settings dflags) (llvmConfig dflags) `lang_set` - case language dflags of - Nothing -> Just Haskell2010 - other -> other + defaultDynFlags (settings dflags) (llvmConfig dflags) `lang_set` Just lang + + lang = fromMaybe GHC2021 (language dflags) + showTargets :: GHC.GhcMonad m => m () showTargets = mapM_ showTarget =<< GHC.getTargets |