From bfa73d40fce668c6d8e055853d81fc1121b95be1 Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Thu, 4 Dec 2008 13:54:43 +0000
Subject: [PATCH] pgf server: return 1 result for /random without limit
 argument.

---
 src/server/PGFService.hs | 3 +--
 1 file changed, 1 insertion(+), 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