Improved the Show instance for Unknown

diff --git a/GHC/Show.lhs b/GHC/Show.lhs
index 7735ec6..06fddd8 100644 (file)
--- 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