From 1d91c0268ce17926a46bc4bcbcdbd596e475ef7f Mon Sep 17 00:00:00 2001
From: thomasjm <tom@codedown.io>
Date: Wed, 16 Aug 2023 01:57:18 -0700
Subject: [PATCH] Try filling in text only response

---
 src/tests/IHaskell/Test/Eval.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/tests/IHaskell/Test/Eval.hs b/src/tests/IHaskell/Test/Eval.hs
index a533cf3a..b8ee69e3 100644
--- 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