From 1632c8ac355890e0309f90c4c8c7861469374897 Mon Sep 17 00:00:00 2001
From: "mnislaih@gmail.com" <unknown>
Date: Tue, 1 Aug 2006 23:35:30 +0000
Subject: [PATCH] Show instance for GHC.Base.Unknown

---
 GHC/Show.lhs |   11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/GHC/Show.lhs b/GHC/Show.lhs
index 15e5913..7735ec6 100644
--- a/GHC/Show.lhs
+++ b/GHC/Show.lhs
@@ -412,3 +412,14 @@ itos n# cs
         | otherwise = case chr# (ord# '0'# +# (n# `remInt#` 10#)) of { c# ->
 		      itos' (n# `quotInt#` 10#) (C# c# : cs) }
 \end{code}
+
+%*********************************************************
+%*							*
+\subsection{Other instances}
+%*							*
+%*********************************************************
+
+\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"
+\end{code}
\ No newline at end of file
-- 
1.7.10.4