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

{-# LANGUAGE MagicHash, UnboxedTuples #-}
module MagicHashUnboxedTuples where

f (#x, y #) = (# a#, b #) where
  a# = a#
  b = b