GitHub/gf-core
1
0 Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-10-27 08:53:18 -06:00
Code Issues Packages Projects Releases Wiki Activity

fix after the change in bracketed string

Browse Source
This commit is contained in:
Krasimir Angelov committed 2018-12-20 12:40:46 +01:00
1 parent 7288425daf
commit 7c97e5566d
1 file changed
+1 -1
Download Patch File Download Diff File Expand all files Collapse all files
src/server/PGFService.hs
+1 -1
View File
@@ -974,7 +974,7 @@ instance JSON PGF.Expr where
instance JSON PGF.BracketedString where
readJSON x = return (PGF.Leaf "")
showJSON (PGF.Bracket cat fid index fun _ bs) =
showJSON (PGF.Bracket cat fid _ index fun _ bs) =
makeObj ["cat".=cat, "fid".=fid, "index".=index, "fun".=fun, "children".=bs]
showJSON (PGF.Leaf s) = makeObj ["token".=s]