haskell-src-exts-1.24.0: tests/examples/UnboxedTuples.hs

{-# LANGUAGE UnboxedTuples #-}

foo :: (a, b) -> (# b , a #)
foo (a, b) =
  case (# b, a #) of
    (# b, a #) -> (# , #) b a