juvix/tests/Compilation/positive/test040.juvix

-- pattern matching nullary constructor
module test040;

import Stdlib.System.IO open;
import Stdlib.Data.Bool 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 : IO := printBoolLn (f (foo unit true));