Idris2/tests/contrib/json_003/CastJSON.idr
2021-10-06 18:35:25 +01:00

12 lines
227 B
Idris

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"])
]