packages feed

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