Record pattern synonyms
[ghc.git] / testsuite / tests / patsyn / should_fail / mixed-pat-syn-record-sels.hs
1 {-# LANGUAGE PatternSynonyms #-}
2 module Foo where
3
4
5 pattern A { a } = Just a
6 pattern B { b } = Just b
7
8 foo :: Maybe a -> Maybe Bool
9 foo x = x { a = True, b = False }