diff options
Diffstat (limited to 'ghc/GHCi/UI.hs')
| -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 |