Implement unboxed sum primitive type
[ghc.git] / testsuite / tests / unboxedsums / unarise.hs
1 {-# LANGUAGE UnboxedTuples #-}
2
3 module Main where
4
5 {-# NOINLINE f1 #-}
6 f1 :: (# #) -> (# #) -> String
7 f1 (# #) (# #) = "o"
8
9 {-# NOINLINE f2 #-}
10 f2 :: (# (# #), (# #) #) -> String
11 f2 (# (# #), (# #) #) = "k"
12
13 main :: IO ()
14 main = do
15 let t = (# (# #), (# #) #)
16 case t of
17 (# t1, t2 #) -> putStrLn (f1 t1 t2 ++ f2 t)