Idris2/tests/contrib/json_003/CastJSON.idr

12 lines
227 B
Idris
Raw Normal View History

import Language.JSON
main : IO ()
main = do
printLn $ JObject [
("a", cast ()),
("b", cast True),
("c", cast 1.0),
("d", cast "Hello, world"),
("e", cast ["Lorem", "ipsum"])
]