path: root/testsuite/tests/patsyn/should_compile/BundleInternal1.hs

{-# LANGUAGE PatternSynonyms #-}
module BundleInternal1 (A(NewA,MkA, NoA)) where

newtype A = NewA (Maybe Int)

pattern MkA n = NewA (Just n)

pattern NoA = NewA Nothing