mirror of
https://github.com/unisonweb/unison.git
synced 2024-09-17 13:27:30 +03:00
12 lines
236 B
Plaintext
12 lines
236 B
Plaintext
--Abort
|
|
structural ability Abort where
|
|
Abort : forall a . () -> {Abort} a
|
|
|
|
use Nat +
|
|
|
|
bork = u -> 1 + (Abort.Abort ())
|
|
|
|
(bork : Nat)
|
|
|
|
-- fails with loop instead of with type mismatch in commit 2819c206acf80f926c6d970a4ffd47c961fa4502
|