mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-11 19:47:15 +03:00
20 lines
347 B
Plaintext
20 lines
347 B
Plaintext
Kind.API.get_refs
|
|
: ∀(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
|
|
(String.join String.newline (Kind.Book.get_refs book))
|
|
)
|
|
λx (IO.done Unit Unit.one)
|
|
)
|
|
)
|
|
) |