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

pgf server: return 1 result for /random without limit argument.

Browse Source
This commit is contained in:
bjorn
2008-12-04 13:54:43 +00:00
parent ac15cff40e
commit bfa73d40fc
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/server/PGFService.hs
View File

@@ -129,8 +129,7 @@ doRandom :: PGF -> Maybe PGF.Type -> Maybe Int -> IO JSValue
doRandom pgf mcat mlimit = doRandom pgf mcat mlimit =
do trees <- random' pgf mcat do trees <- random' pgf mcat
return $ showJSON $ map toJSObject [[("tree", PGF.showTree tree)] | tree <- limit trees] return $ showJSON $ map toJSObject [[("tree", PGF.showTree tree)] | tree <- limit trees]
where limit = take (fromMaybe maxLimit mlimit) where limit = take (fromMaybe 1 mlimit)
maxLimit = 1000
doGrammar :: PGF -> Maybe (Accept Language) -> JSValue doGrammar :: PGF -> Maybe (Accept Language) -> JSValue
doGrammar pgf macc = showJSON $ toJSObject doGrammar pgf macc = showJSON $ toJSObject