ghc-exactprint-1.9.0.0: tests/examples/pre-ghc910/T10897a.hs

{-# LANGUAGE PatternSynonyms #-}
module T10897a where
pattern Single :: a -> a
pattern Single x = x