ghc-exactprint-0.5.1.0: tests/examples/ghc8/records-no-uni-update2.hs
{-# LANGUAGE PatternSynonyms #-}
module RecordPats where
-- No updates
pattern Uni{a} <- Just a
qux = a (Just True)
qux2 (Uni b) = b
foo = Uni { a = "b" }
{-# LANGUAGE PatternSynonyms #-}
module RecordPats where
-- No updates
pattern Uni{a} <- Just a
qux = a (Just True)
qux2 (Uni b) = b
foo = Uni { a = "b" }