mirror of
https://github.com/unisonweb/unison.git
synced 2024-11-12 04:34:38 +03:00
10 lines
192 B
Plaintext
10 lines
192 B
Plaintext
--Abort
|
|
effect Abort where
|
|
Abort : forall a . () -> {Abort} a
|
|
|
|
bork = u -> 1 + (Abort.Abort ())
|
|
|
|
(bork : () -> {} Nat)
|
|
|
|
-- failing to fail in commit 2819c206acf80f926c6d970a4ffd47c961fa4502
|