ghc-exactprint-1.14.0.0: tests/examples/pre-ghc910/Unboxed.hs
{-# LANGUAGE UnboxedTuples #-}
module Layout.Unboxed where
f1 :: (Num a1, Num a) => a -> a1 -> (# , #) a a1
f1 x y = (# , #) (x+1) (y-1)
f2 x y z = (# ,, #) x y z
{-# LANGUAGE UnboxedTuples #-}
module Layout.Unboxed where
f1 :: (Num a1, Num a) => a -> a1 -> (# , #) a a1
f1 x y = (# , #) (x+1) (y-1)
f2 x y z = (# ,, #) x y z