diff options
| author | simonmar <unknown> | 1999-08-04 10:29:25 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 1999-08-04 10:29:25 +0000 |
| commit | 909e46f5b462d2e704744120753c419dc7183a42 (patch) | |
| tree | 990c2294e73c441ec025062a556bc2be7a1dd7b9 /ghc | |
| parent | 2cd1a07b90c519d93f6d778519fc3d2791aadd8f (diff) | |
| download | haskell-909e46f5b462d2e704744120753c419dc7183a42.tar.gz | |
[project @ 1999-08-04 10:29:25 by simonmar]
Cast NULL to (W_) to avoid warning.
Diffstat (limited to 'ghc')
| -rw-r--r-- | ghc/lib/std/PrelAddr.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/lib/std/PrelAddr.lhs b/ghc/lib/std/PrelAddr.lhs index c0b59396af..80740d3ea6 100644 --- a/ghc/lib/std/PrelAddr.lhs +++ b/ghc/lib/std/PrelAddr.lhs @@ -34,7 +34,7 @@ instance Show Addr where showsPrec p (A# a) = showsPrec p (I# (addr2Int# a)) nullAddr :: Addr -nullAddr = ``NULL'' +nullAddr = ``(W_)NULL'' plusAddr :: Addr -> Int -> Addr plusAddr (A# addr) (I# off) = A# (int2Addr# (addr2Int# addr +# off)) |