Rename bundled pattern synonym tests to reflect new terminology
[ghc.git] / testsuite / tests / patsyn / should_compile / BundleInternal1.hs
1 {-# LANGUAGE PatternSynonyms #-}
2 module BundleInternal1 (A(NewA,MkA, NoA)) where
3
4 newtype A = NewA (Maybe Int)
5
6 pattern MkA n = NewA (Just n)
7
8 pattern NoA = NewA Nothing