From f58428461acef03e5b0c4ac2cdb7174aa4fa5cb4 Mon Sep 17 00:00:00 2001 From: Pepe Iborra Date: Sun, 13 Aug 2006 11:18:16 +0000 Subject: [PATCH] Improved the Show instance for Unknown --- GHC/Show.lhs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/GHC/Show.lhs b/GHC/Show.lhs index 7735ec6..06fddd8 100644 --- a/GHC/Show.lhs +++ b/GHC/Show.lhs @@ -421,5 +421,6 @@ itos n# cs \begin{code} instance Show Unknown where - show _ = "This is an untyped object. You can use seq to force its evaluation and then :print to recover its type" + show _ = "This is an untyped, unevaluated computation. You can use seq to force its evaluation and then :print to recover its type" + showList _ = ("This is an untyped, unevaluated computation. You can use seq to force its evaluation and then :print to recover its type" ++) \end{code} \ No newline at end of file -- 1.7.10.4