diff options
| author | bjorn <bjorn@bringert.net> | 2008-12-04 13:54:43 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-12-04 13:54:43 +0000 |
| commit | e0572650b35402ce1470811726b9ff125afdbf6e (patch) | |
| tree | cd45d2905bfd4c21765a9ac1bf1cc474e7ff29c8 | |
| parent | d8c2b34b8e03dfa91b336822a3748a887b79b527 (diff) | |
pgf server: return 1 result for /random without limit argument.
| -rw-r--r-- | src/server/PGFService.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/server/PGFService.hs b/src/server/PGFService.hs index ff5f6920f..50765abdd 100644 --- a/src/server/PGFService.hs +++ b/src/server/PGFService.hs @@ -129,8 +129,7 @@ doRandom :: PGF -> Maybe PGF.Type -> Maybe Int -> IO JSValue doRandom pgf mcat mlimit = do trees <- random' pgf mcat return $ showJSON $ map toJSObject [[("tree", PGF.showTree tree)] | tree <- limit trees] - where limit = take (fromMaybe maxLimit mlimit) - maxLimit = 1000 + where limit = take (fromMaybe 1 mlimit) doGrammar :: PGF -> Maybe (Accept Language) -> JSValue doGrammar pgf macc = showJSON $ toJSObject |