mirror of
https://github.com/anoma/juvix.git
synced 2024-12-12 14:28:08 +03:00
18 lines
327 B
Plaintext
18 lines
327 B
Plaintext
|
-- pattern matching nullary constructor
|
||
|
|
module test040;
|
||
|
|
|
||
|
|
import Stdlib.System.IO open;
|
||
|
|
import Stdlib.Data.Bool open;
|
||
|
|
import Stdlib.Data.Nat open;
|
||
|
|
|
||
|
|
type Unit :=
|
||
|
|
| unit : Unit;
|
||
|
|
|
||
|
|
type Foo (A : Type) :=
|
||
|
|
| foo : Unit -> A -> Foo A;
|
||
|
|
|
||
|
|
f : {A : Type} -> Foo A -> A
|
||
|
|
| (foo unit a) := a;
|
||
|
|
|
||
|
|
main : Nat := if (f (foo unit true)) 1 0;
|