mirror of
https://github.com/unisonweb/unison.git
synced 2024-09-19 06:17:33 +03:00
11 lines
138 B
Plaintext
11 lines
138 B
Plaintext
unique ability S a where
|
|
s : a
|
|
|
|
unique type R g = R ('{g} ())
|
|
|
|
run : '{S (R g), g} ()
|
|
run _ = todo ()
|
|
|
|
run' : '{S (R {})} ()
|
|
run' = run
|