mirror of
https://github.com/unisonweb/unison.git
synced 2024-09-23 16:28:02 +03:00
12 lines
185 B
Plaintext
12 lines
185 B
Plaintext
|
|
eff : forall a b . (a -> b) -> b -> Effect Abort a -> b
|
|
eff f z e = case e of
|
|
{ Abort.Abort _ -> k } -> z
|
|
{ a } -> f a
|
|
|
|
ability Abort where
|
|
Abort : forall a . () -> {Abort} a
|
|
|
|
|
|
|