mirror of
https://github.com/unisonweb/unison.git
synced 2024-09-25 01:08:30 +03:00
12 lines
186 B
Plaintext
12 lines
186 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
|
|
|
|
effect Abort where
|
|
Abort : forall a . () -> {Abort} a
|
|
|
|
()
|
|
|