mirror of
https://github.com/unisonweb/unison.git
synced 2024-09-25 01:08:30 +03:00
23 lines
323 B
Plaintext
23 lines
323 B
Plaintext
type Foo0 = Foo0
|
|
type Foo1 a = Foo1 a
|
|
type Foo2 a b = Foo2 a b
|
|
type Foo3 a b c = Foo3 a b c
|
|
|
|
use Foo0 Foo0
|
|
use Foo1 Foo1
|
|
use Foo2 Foo2
|
|
|
|
x = case Foo0 of
|
|
Foo0 -> 1
|
|
|
|
y = case Foo1 1 of
|
|
Foo1 1 -> 0
|
|
Foo1 _ -> 10
|
|
|
|
-- text patterns don't work, parse error
|
|
z = case Foo2 1 "hi" of
|
|
Foo2 x "bye" -> x
|
|
Foo2 1 "hi" -> 1
|
|
|
|
()
|