Skip to content

Commit 32b0fc7

Browse files
committed
Update test for new constructor-kind generic args schema
1 parent 1ff69be commit 32b0fc7

File tree

1 file changed

+4
-3
lines changed

1 file changed

+4
-3
lines changed

testsuite/bsc.typechecker/generics/GenericTests.bs

Lines changed: 4 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -28,7 +28,7 @@ struct Bar =
2828
data Baz a = Baz a a
2929
deriving (Eq, FShow)
3030

31-
data (Tiz :: # -> $ -> (* -> *) -> *) i s c = Tiz
31+
data (Tiz :: # -> $ -> (* -> *) -> (# -> *) -> (* -> * -> *) -> *) i s c nc oc = Tiz
3232
deriving (Eq, FShow)
3333

3434
struct Qux =
@@ -93,8 +93,9 @@ bazFooRepr :: (Generic (Baz Foo) r) => TypeEq r
9393
Meta (MetaField "_2" 1) (Conc Foo))))
9494
bazFooRepr = refl
9595

96-
tizRepr :: (Generic (Tiz i s c) r) => TypeEq r
97-
(Meta (MetaData "Tiz" "GenericTests" (NumArg i, StrArg s, OtherConArg) 1)
96+
tizRepr :: (Generic (Tiz i s c nc oc) r) => TypeEq r
97+
(Meta (MetaData "Tiz" "GenericTests"
98+
(NumArg i, StrArg s, StarConArg c, NumConArg nc, OtherConArg) 1)
9899
(Meta (MetaConsAnon "Tiz" 0 0) ()))
99100
tizRepr = refl
100101

0 commit comments

Comments
 (0)