diff options
| -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 |