diff options
Diffstat (limited to 'src/server')
| -rw-r--r-- | src/server/PGFService.hs | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/src/server/PGFService.hs b/src/server/PGFService.hs index 7269c1eee..fee8c766c 100644 --- a/src/server/PGFService.hs +++ b/src/server/PGFService.hs @@ -266,12 +266,15 @@ doComplete pgf input mcat mfrom mlimit = showJSON $ map toJSObject cat = fromMaybe (PGF.startCat pgf) mcat doLinearize :: PGF -> PGF.Tree -> Maybe PGF.Language -> JSValue -doLinearize pgf tree mto = showJSON $ map toJSObject - [[("to", PGF.showLanguage to),("text",text)] | (to,text) <- linearize' pgf mto tree] +doLinearize pgf tree mto = showJSON $ + [toJSObject [("to", PGF.showLanguage to),("text",text)] + | (to,text) <- linearize' pgf mto tree] doLinearizes :: PGF -> PGF.Tree -> Maybe PGF.Language -> JSValue -doLinearizes pgf tree mto = showJSON $ map toJSObject - [("to", PGF.showLanguage to):[("text",text) | text <- texts] | (to,texts) <- linearizes' pgf mto tree] +doLinearizes pgf tree mto = showJSON $ + [toJSObject [("to", showJSON $ PGF.showLanguage to), + ("texts",showJSON texts)] + | (to,texts) <- linearizes' pgf mto tree] doRandom :: PGF -> Maybe PGF.Type -> Maybe Int -> Maybe Int -> Maybe PGF.Language -> IO JSValue doRandom pgf mcat mdepth mlimit mto = |