ghc-exactprint-1.14.0.0: tests/examples/pre-ghc910/T11216.hs

{-# LANGUAGE RebindableSyntax #-}

module Bug where

foo :: (a, b) -> ()
foo x | (_,_) <- x = ()