From: Pepe Iborra <mnislaih@gmail.com>
Date: Sun, 13 Aug 2006 11:18:16 +0000 (+0000)
Subject: Improved the Show instance for Unknown
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=f58428461acef03e5b0c4ac2cdb7174aa4fa5cb4;p=haskell-directory.git

Improved the Show instance for Unknown
---

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