msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

added export for EPatt

Browse Source
This commit is contained in:
Krasimir Angelov
2025-04-15 08:40:30 +02:00
parent cc4d07f168
commit a9d4fecd33
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/compiler/api/GF/Grammar/JSON.hs
View File

@@ -139,6 +139,8 @@ term2json (Reset ctl t) =
in makeObj [("reset",jctl), ("term",term2json t)] in makeObj [("reset",jctl), ("term",term2json t)]
term2json (Alts def alts) = makeObj [("def",term2json def), ("alts",showJSON (map (\(t1,t2) -> (term2json t1, term2json t2)) alts))] term2json (Alts def alts) = makeObj [("def",term2json def), ("alts",showJSON (map (\(t1,t2) -> (term2json t1, term2json t2)) alts))]
term2json (Strs ts) = makeObj [("strs",showJSON (map term2json ts))] term2json (Strs ts) = makeObj [("strs",showJSON (map term2json ts))]
term2json (EPatt _ _ p) = makeObj [("epatt",patt2json p)]
json2term o = Vr <$> o!:"vr" json2term o = Vr <$> o!:"vr"
<|> curry Q <$> o!:"mod" <*> o!:"cn" <|> curry Q <$> o!:"mod" <*> o!:"cn"