GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 03:32:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

restore missing case in the JSON instance for BracketedString

Browse Source
This commit is contained in:
Krasimir Angelov
2022-05-31 11:38:02 +02:00
parent 418aa1a2b2
commit 247a48e5bb
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/server/PGFService.hs
View File

@@ -457,6 +457,7 @@ instance JSON BracketedString where
readJSON x = return (Leaf "") readJSON x = return (Leaf "")
showJSON (Bracket cat fid index fun bs) = showJSON (Bracket cat fid index fun bs) =
makeObj ["cat".=cat, "fid".=fid, "index".=index, "fun".=fun, "children".=bs] makeObj ["cat".=cat, "fid".=fid, "index".=index, "fun".=fun, "children".=bs]
showJSON BIND = makeObj ["bind".=True]
showJSON (Leaf s) = makeObj ["token".=s] showJSON (Leaf s) = makeObj ["token".=s]
-- * PGF utilities -- * PGF utilities