diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2022-01-07 12:05:44 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-01-11 19:43:57 -0500 |
| commit | 19b13698f5afe6ab497eb2e2169cb9782a933f93 (patch) | |
| tree | 70dea5c6ded5f6a72aecae731d8ece0a8377e2d6 | |
| parent | 833216a31c866d86ff95cfbf95591fb56463371c (diff) | |
| download | haskell-19b13698f5afe6ab497eb2e2169cb9782a933f93.tar.gz | |
Enable :seti in a multi component repl
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 |