mirror of
https://github.com/unisonweb/unison.git
synced 2024-09-17 13:27:30 +03:00
12 lines
190 B
Plaintext
12 lines
190 B
Plaintext
structural type Foo = Foo Boolean Boolean
|
|
|
|
f : Foo -> Boolean
|
|
f = cases
|
|
Foo.Foo a b | a || b -> true
|
|
_ -> false
|
|
|
|
g : Foo -> Boolean
|
|
g = cases
|
|
Foo.Foo a b | a && b -> true
|
|
_ -> false
|