GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

PGFService.hs: code duplication reduction

Browse Source
This commit is contained in:
hallgren
2012-12-20 00:15:18 +00:00
parent ece3e33c52
commit d968503d90
1 changed files with 1 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/server/PGFService.hs
View File

@@ -282,9 +282,7 @@ doRandom pgf mcat mdepth mlimit mto =
let trees = PGF.generateRandomDepth g pgf cat (Just depth)
return $ showJSON
[makeObj ["tree".=PGF.showExpr [] tree,
"linearizations".=
[makeObj ["to".=to, "text".=text]
| (to,text,bs) <- linearize' pgf mto tree]]
"linearizations".= doLinearizes pgf tree mto]
| tree <- limit trees]
where cat = fromMaybe (PGF.startCat pgf) mcat
limit = take (fromMaybe 1 mlimit)