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

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