aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/UnboxedTuples/multiline-implicit-layout.hs
{- ORACLE_TEST pass -}
{-# LANGUAGE UnboxedTuples #-}
module MultilineImplicitLayout where
x :: Int -> (# Int, Int #)
x n =
(#
n
, 2
#)
f :: (# Int, Int #) -> Int
f
(# a
, _
#) = a
g :: (# Int
, Int #) -> (# Int
, Int #)
g t = t