Update Trac ticket URLs to point to GitLab
[ghc.git] / testsuite / tests / pmcheck / complete_sigs / completesig11.hs
1 {-# OPTIONS_GHC -Wall #-}
2 {-# LANGUAGE PatternSynonyms #-}
3 module Completesig11 where
4
5 data T = A | B | C
6 {-# COMPLETE A,B #-}
7 {-# COMPLETE A,C #-}
8
9 pattern BS :: T
10 pattern BS = B
11 {-# COMPLETE A,BS #-}
12
13 m1 :: T -> ()
14 m1 A = ()