diff options
Diffstat (limited to 'ghc/GHCi/UI.hs')
| -rw-r--r-- | ghc/GHCi/UI.hs | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/ghc/GHCi/UI.hs b/ghc/GHCi/UI.hs index e70992f667..4432244dca 100644 --- a/ghc/GHCi/UI.hs +++ b/ghc/GHCi/UI.hs @@ -2775,9 +2775,7 @@ showDynFlags show_all dflags = do is_on = test f dflags quiet = not show_all && test f default_dflags == is_on - llvmConfig = (llvmTargets dflags, llvmPasses dflags) - - default_dflags = defaultDynFlags (settings dflags) llvmConfig + default_dflags = defaultDynFlags (settings dflags) (llvmConfig dflags) (ghciFlags,others) = partition (\f -> flagSpecFlag f `elem` flgs) DynFlags.fFlags @@ -3229,10 +3227,8 @@ showLanguages' show_all dflags = is_on = test f dflags quiet = not show_all && test f default_dflags == is_on - llvmConfig = (llvmTargets dflags, llvmPasses dflags) - default_dflags = - defaultDynFlags (settings dflags) llvmConfig `lang_set` + defaultDynFlags (settings dflags) (llvmConfig dflags) `lang_set` case language dflags of Nothing -> Just Haskell2010 other -> other |