GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-30 05:08:55 -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
2018-12-20 12:40:46 +01:00
parent 7288425daf
commit 7c97e5566d
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/server/PGFService.hs
View File

@@ -974,7 +974,7 @@ instance JSON PGF.Expr where
instance JSON PGF.BracketedString where instance JSON PGF.BracketedString where
readJSON x = return (PGF.Leaf "") 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] makeObj ["cat".=cat, "fid".=fid, "index".=index, "fun".=fun, "children".=bs]
showJSON (PGF.Leaf s) = makeObj ["token".=s] showJSON (PGF.Leaf s) = makeObj ["token".=s]