haskell-src-exts-1.17.0: tests/examples/UnboxedTuples.hs.prettyprinter.golden

{-# LANGUAGE UnboxedTuples #-}
module Main (main) where

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