blob: 9cdabc40212dea18a9c276c2a583be61c9fac494 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
{-# LANGUAGE UnboxedTuples #-}
module Main where
{-# NOINLINE f1 #-}
f1 :: (# #) -> (# #) -> String
f1 (# #) (# #) = "o"
{-# NOINLINE f2 #-}
f2 :: (# (# #), (# #) #) -> String
f2 (# (# #), (# #) #) = "k"
main :: IO ()
main = do
let t = (# (# #), (# #) #)
case t of
(# t1, t2 #) -> putStrLn (f1 t1 t2 ++ f2 t)
|
