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

{-# LANGUAGE PatternSynonyms #-}

module Foo (MyClass(.., P)) where

pattern P = Nothing

class MyClass a where
  foo :: a -> Int