GitHub/gf-core
1
0 Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-10-28 01:13:18 -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 committed 2022-05-31 11:38:02 +02:00
1 parent 418aa1a2b2
commit 247a48e5bb
1 file changed
+1
Download Patch File Download Diff File Expand all files Collapse all files
src/server/PGFService.hs
+1
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