mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-26 21:23:53 +03:00
a972778eab
They don't all pass yet, for minor reasons. Coming shortly... Unfortunately the startup overhead for chez is really noticeable here!
16 lines
316 B
Plaintext
16 lines
316 B
Plaintext
data Bad : Type where
|
|
MkBad : (Bad -> Int) -> Int -> Bad
|
|
MkBad' : Int -> Bad
|
|
|
|
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
|