summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorZejun Wu <watashi@fb.com>2018-12-18 18:29:44 -0800
committerBen Gamari <ben@smart-cactus.org>2019-01-06 07:27:09 -0500
commit08b8ea2f4f1bbc1c61a7cca03ae7fa8ffb099556 (patch)
tree239e207e36790d4c68b934f9f1510028ed764b7f
parentb565d418ff5f9501abecf130dafc2b9837460a96 (diff)
downloadhaskell-08b8ea2f4f1bbc1c61a7cca03ae7fa8ffb099556.tar.gz
Respect prompt in GhciSettings
Summary: This was broken when PromptFunction was introduced that the settings are ignored and default values are always used. Test Plan: ./validate
-rw-r--r--ghc/GHCi/UI.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/GHCi/UI.hs b/ghc/GHCi/UI.hs
index 105324f629..2cc055ae8a 100644
--- a/ghc/GHCi/UI.hs
+++ b/ghc/GHCi/UI.hs
@@ -468,8 +468,8 @@ interactiveUI config srcs maybe_exprs = do
GHCiState{ progname = default_progname,
args = default_args,
evalWrapper = eval_wrapper,
- prompt = default_prompt,
- prompt_cont = default_prompt_cont,
+ prompt = defPrompt config,
+ prompt_cont = defPromptCont config,
stop = default_stop,
editor = default_editor,
options = [],