diff options
author | Matthew Pickering <matthewtpickering@gmail.com> | 2022-01-07 12:05:44 +0000 |
---|---|---|
committer | Matthew Pickering <matthewtpickering@gmail.com> | 2022-01-11 09:30:06 +0000 |
commit | fb68ba06c2ed231f53ab56d3b2fad93fafd4c2e6 (patch) | |
tree | 57364c749122a586c28d8d7c1122635a166f33f0 | |
parent | 55715c132e00d49ac174481df300cabc1881deee (diff) | |
download | haskell-fb68ba06c2ed231f53ab56d3b2fad93fafd4c2e6.tar.gz |
Enable :seti in a multi component replwip/seti-improvements
Part of #20889
-rw-r--r-- | ghc/GHCi/UI.hs | 4 | ||||
-rw-r--r-- | testsuite/tests/driver/multipleHomeUnits/multiGHCi.script | 2 | ||||
-rw-r--r-- | testsuite/tests/driver/multipleHomeUnits/multiGHCi.stdout | 1 |
3 files changed, 5 insertions, 2 deletions
diff --git a/ghc/GHCi/UI.hs b/ghc/GHCi/UI.hs index a51d30232c..cf58baa0a6 100644 --- a/ghc/GHCi/UI.hs +++ b/ghc/GHCi/UI.hs @@ -233,8 +233,8 @@ ghciCommands = map mkCmd [ ("run", keepGoing runRun, completeFilename), ("script", keepGoing' scriptCmd, completeFilename), ("set", keepGoing setCmd, completeSetOptions), - ("seti", keepGoing setiCmd, completeSeti), - ("show", keepGoingMulti' showCmd, completeShowOptions), + ("seti", keepGoingMulti setiCmd, completeSeti), + ("show", keepGoingMulti' showCmd, completeShowOptions), ("showi", keepGoing showiCmd, completeShowiOptions), ("sprint", keepGoing sprintCmd, completeExpression), ("step", keepGoing stepCmd, completeIdentifier), diff --git a/testsuite/tests/driver/multipleHomeUnits/multiGHCi.script b/testsuite/tests/driver/multipleHomeUnits/multiGHCi.script index f4fd0056d5..8007f19e51 100644 --- a/testsuite/tests/driver/multipleHomeUnits/multiGHCi.script +++ b/testsuite/tests/driver/multipleHomeUnits/multiGHCi.script @@ -1,2 +1,4 @@ :r +:seti -fprint-explicit-foralls +:t id :l abc diff --git a/testsuite/tests/driver/multipleHomeUnits/multiGHCi.stdout b/testsuite/tests/driver/multipleHomeUnits/multiGHCi.stdout new file mode 100644 index 0000000000..f2bad173c8 --- /dev/null +++ b/testsuite/tests/driver/multipleHomeUnits/multiGHCi.stdout @@ -0,0 +1 @@ +id :: forall a. a -> a |