mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-10-26 16:20:58 +03:00
18 lines
295 B
Plaintext
18 lines
295 B
Plaintext
Kind.API.to_hvm
|
|
: ∀(name: String) (IO Unit)
|
|
= λname
|
|
(IO.run
|
|
Unit
|
|
(IO.bind
|
|
Kind.Book
|
|
Unit
|
|
(Kind.load.code name)
|
|
λbook
|
|
(IO.bind
|
|
Unit
|
|
Unit
|
|
(IO.print.do (Kind.Book.to_hvm book))
|
|
λx (IO.done Unit Unit.one)
|
|
)
|
|
)
|
|
) |