mirror of
https://github.com/unisonweb/unison.git
synced 2024-09-19 14:29:27 +03:00
288 B
288 B
.> builtins.mergeio
f : '{} Nat
f _ = 5
fc : '{IO, Exception} Nat
fc = unsafe.coerceAbilities f
main : '{IO, Exception} [Result]
main _ =
n = !fc
if n == 5 then [Ok ""] else [Fail ""]
.> find unsafe.coerceAbilities
.> add
.> io.test main