unison/unison-src/tests/effect1.u

12 lines
185 B
Plaintext
Raw Normal View History

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
2019-02-12 19:15:46 +03:00