projects
/
ghc-base.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
1ff5e59
)
Show instance for GHC.Base.Unknown
author
mnislaih@gmail.com
<unknown>
Tue, 1 Aug 2006 23:35:30 +0000
(23:35 +0000)
committer
mnislaih@gmail.com
<unknown>
Tue, 1 Aug 2006 23:35:30 +0000
(23:35 +0000)
GHC/Show.lhs
patch
|
blob
|
history
diff --git
a/GHC/Show.lhs
b/GHC/Show.lhs
index
15e5913
..
7735ec6
100644
(file)
--- 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}
| 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