From c99ce1fd0dd00cf5eea83c4ebb2edb9378024356 Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Wed, 17 Sep 2008 12:42:05 +0000
Subject: [PATCH] fastcgi: rename /info to /grammar

---
 src/server/MainFastCGI.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/server/MainFastCGI.hs b/src/server/MainFastCGI.hs
index 016ddc773..47aabacf3 100644
--- a/src/server/MainFastCGI.hs
+++ b/src/server/MainFastCGI.hs
@@ -36,7 +36,7 @@ cgiMain pgf =
          "/complete"       -> return (doComplete pgf) `ap` getText `ap` getCat `ap` getFrom `ap` getLimit
          "/linearize"      -> return (doLinearize pgf) `ap` getTree `ap` getTo
          "/translate"      -> return (doTranslate pgf) `ap` getText `ap` getCat `ap` getFrom `ap` getTo
-         "/info"           -> return (doInfo pgf) `ap` requestAcceptLanguage
+         "/grammar"        -> return (doGrammar pgf) `ap` requestAcceptLanguage
          _                 -> throwCGIError 404 "Not Found" ["Resource not found: " ++ path]
        outputJSON json
   where
@@ -100,8 +100,8 @@ doLinearize :: PGF -> PGF.Tree -> Maybe PGF.Language -> JSValue
 doLinearize pgf tree mto = showJSON $ map toJSObject
      [[("to",to),("text",text)] | (to,text) <- linearize' pgf mto tree]
 
-doInfo :: PGF -> Maybe (Accept Language) -> JSValue
-doInfo pgf macc = showJSON $ toJSObject 
+doGrammar :: PGF -> Maybe (Accept Language) -> JSValue
+doGrammar pgf macc = showJSON $ toJSObject 
              [("name", showJSON (PGF.abstractName pgf)),
               ("userLanguage", showJSON (selectLanguage pgf macc)),
               ("categories", showJSON categories),