mirror of
https://github.com/unisonweb/unison.git
synced 2024-09-17 13:27:30 +03:00
330 B
330 B
scratch/main> builtins.merge
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 ""]
scratch/main> find unsafe.coerceAbilities
scratch/main> add
scratch/main> io.test main