unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-09-19 14:29:27 +03:00
Code Issues Projects Releases Wiki Activity
68c78f8d8f
unison/unison-src/transcripts/unsafe-coerce.md
Dan Doel 257ae66989 Add unsafe.coerceAbilities builtin
2021-08-20 14:50:05 -04:00

288 B
Raw Blame History 

.> 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