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