mirror of
https://github.com/unisonweb/unison.git
synced 2024-11-13 22:29:35 +03:00
9 lines
183 B
Plaintext
9 lines
183 B
Plaintext
|
effect Abort where
|
||
|
|
Abort : forall a . () -> {Abort} a
|
||
|
|
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
|
||
|
|
()
|
||
|
|
|