mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-27 13:43:28 +03:00
a972778eab
They don't all pass yet, for minor reasons. Coming shortly... Unfortunately the startup overhead for chez is really noticeable here!
22 lines
417 B
Idris
22 lines
417 B
Idris
data Bad = MkBad (Bad -> Int) Int
|
|
| MkBad' Int
|
|
|
|
foo : Bad -> Int
|
|
foo (MkBad f i) = f (MkBad' i)
|
|
foo (MkBad' x) = x
|
|
|
|
foo2 : Bad -> Int
|
|
foo2 b = case b of
|
|
MkBad f i => f (MkBad' i)
|
|
MkBad' x => x
|
|
|
|
data T : Type -> Type where
|
|
MkT : T (T a) -> T a
|
|
|
|
mutual
|
|
data Bad1 = MkBad1 (Bad2 -> Int)
|
|
data Bad2 = MkBad2 (Bad1 -> Int)
|
|
|
|
data T2 : Type -> Type where
|
|
MkT2 : T a -> T2 a
|