shithub: MicroHs

ref: 35ed3c006dbbc7cf3dc0dfbff24ee87ea4ebf2f6
dir: /tests/Word.hs/

View raw version 
module Word(main) where
import Prelude
import Data.Word

main :: IO ()
main = do
  putStrLn $ show (1000::Word)
  putStrLn $ show $ maxw*maxw > 0

maxw :: Word
maxw = if _wordSize == 32 then 0x7fff::Word else 0x7fffffff::Word