blob: 6213ef496cbffdf55930395b1d34195021c31911 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
{-# LANGUAGE MagicHash #-}
module Main where
import GHC.Exts
data Test1 = Test1 Int8# Word8#
deriving (Show)
data Test2 = Test2 Int16# Word16#
deriving (Show)
data Test3 = Test3 Int32# Word32#
deriving (Show)
test1 :: Test1
test1 = Test1 (intToInt8# 1#) (wordToWord8# 2##)
test2 :: Test2
test2 = Test2 (intToInt16# 1#) (wordToWord16# 2##)
test3 :: Test3
test3 = Test3 (intToInt32# 1#) (wordToWord32# 2##)
main :: IO ()
main = do
print test1
print test2
print test3
|
