the "unknown" types are no longer required

[ghc-base.git] / GHC / Show.lhs

diff --git a/GHC/Show.lhs b/GHC/Show.lhs
index 7735ec6..15e5913 100644 (file)
--- a/GHC/Show.lhs
+++ b/GHC/Show.lhs
@@ -412,14 +412,3 @@ 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