PGFService.hs: code duplication reduction

2012-12-20 00:15:18 +00:00
parent f73825ddf1
commit fa6f8f49ce
1 changed files with 1 additions and 3 deletions
--- a/src/server/PGFService.hs
+++ b/src/server/PGFService.hs
@@ -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)