mirror of
https://github.com/unisonweb/unison.git
synced 2024-09-17 13:27:30 +03:00
9 lines
188 B
Plaintext
9 lines
188 B
Plaintext
|
|
eff : forall a b . (a -> b) -> b -> Request Abort a -> b
|
|
eff f z = cases
|
|
{ Abort.Abort _ -> k } -> z
|
|
{ a } -> f a
|
|
|
|
structural ability Abort where
|
|
Abort : forall a . () -> {Abort} a
|