Idris/advent
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Export JSON show and Eq

Browse source
This commit is contained in:
Nathan McCarty 2025-01-27 20:15:04 -05:00
parent 6afe8c2a4e
commit cd4949b2f8
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Parser/JSON.md
View file

@ -55,6 +55,7 @@ data JSONValue : JSONType -> Type where
``` ```
```idris hide ```idris hide
export
Show (JSONValue t) where Show (JSONValue t) where
show (VObject xs) = show (VObject xs) =
let xs = dMap (\_,(key, value) => "\"\{key}\":\{show value}") xs let xs = dMap (\_,(key, value) => "\"\{key}\":\{show value}") xs
@ -69,6 +70,7 @@ Show (JSONValue t) where
show VNull = "null" show VNull = "null"
-- TODO: Deal with keys potentially having different orders in different objects -- TODO: Deal with keys potentially having different orders in different objects
export
Eq (JSONValue t) where Eq (JSONValue t) where
(VObject xs) == (VObject ys) = (VObject xs) == (VObject ys) =
assert_total $ xs $== ys assert_total $ xs $== ys