libraries/base/tests/addr001.hs


1
2
3
4
5
6
7
8
9
10

-- !!! Testing that Show for Addr is OK..
module Main(main) where

import Foreign.Ptr

main :: IO ()
main = do
  print (nullPtr `plusPtr` maxBound)
  print (nullPtr `plusPtr` minBound)