ghc-exactprint-0.5.1.0: tests/examples/ghc8/T11216.hs

{-# LANGUAGE RebindableSyntax #-}

module Bug where

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