Commit b51d0528 authored by simonm's avatar simonm
Browse files

[project @ 1997-12-17 17:29:49 by simonm]

add instance of Show for Addr.
parent 85bc313b
......@@ -22,6 +22,9 @@ import CCall
\begin{code}
data Addr = A# Addr# deriving (Eq, Ord)
instance Show Addr where
showsPrec p (A# a) = showsPrec p (I# (addr2Int# a))
nullAddr = ``NULL'' :: Addr
plusAddr :: Addr -> Int -> Addr
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment