Try filling in text only response

2025-04-15 19:06:06 +00:00 · 2023-08-16 01:57:18 -07:00 · 2023-08-16 01:57:18 -07:00 · 1d91c0268c
commit 1d91c0268c
parent 04527212b3
1 changed files with 3 additions and 1 deletions
--- a/src/tests/IHaskell/Test/Eval.hs
+++ b/src/tests/IHaskell/Test/Eval.hs
@ -191,7 +191,9 @@ testEval =
                                           ]]]

 #else
-      ":in String" `becomes` []
+      ":in String" `becomes` [ManyDisplay [Display [
+                                              DisplayData PlainText "type String :: *\ntype String = [Char]\n  \t-- Defined in \8216GHC.Base\8217"]
+                                              ]]
 #endif

    it "captures stderr" $ do