diff options
Diffstat (limited to 'testsuite/tests/partial-sigs/should_fail/NamedWildcardInDataFamilyInstanceLHS.hs')
| -rw-r--r-- | testsuite/tests/partial-sigs/should_fail/NamedWildcardInDataFamilyInstanceLHS.hs | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/testsuite/tests/partial-sigs/should_fail/NamedWildcardInDataFamilyInstanceLHS.hs b/testsuite/tests/partial-sigs/should_fail/NamedWildcardInDataFamilyInstanceLHS.hs new file mode 100644 index 0000000000..65bad72c39 --- /dev/null +++ b/testsuite/tests/partial-sigs/should_fail/NamedWildcardInDataFamilyInstanceLHS.hs @@ -0,0 +1,10 @@ +{-# LANGUAGE TypeFamilies, GADTs, DataKinds, PolyKinds, NamedWildCards #-} +module NamedWildcardInDataFamilyInstanceLHS where + +data MyKind = A | B + +data family Sing (a :: k) + +data instance Sing (_a :: MyKind) where + SingA :: Sing A + SingB :: Sing B |