ghc-exactprint-0.5.3.1: tests/examples/ghc80/T11216.hs

{-# LANGUAGE RebindableSyntax #-}

module Bug where

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