From a26290659d2d7799f920d0aae64383e17004abdb Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Mon, 20 Oct 2008 11:35:05 +0000
Subject: Replace Category with Type in the PGF API. Added readLanguage and
 showLanguage.

---
 src/server/MainFastCGI.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/server/MainFastCGI.hs')

diff --git a/src/server/MainFastCGI.hs b/src/server/MainFastCGI.hs
index 78f1693c7..38748fcc4 100644
--- a/src/server/MainFastCGI.hs
+++ b/src/server/MainFastCGI.hs
@@ -50,7 +50,7 @@ pgfMain pgf command =
                  t <- maybe (throwCGIError 400 "No tree given" ["No tree given"]) return mt
                  maybe (throwCGIError 400 "Bad tree" ["Bad tree: " ++ t]) return (PGF.readTree t)
 
-    getCat :: CGI (Maybe PGF.Category)
+    getCat :: CGI (Maybe PGF.Type)
     getCat = 
        do mcat  <- getInput "cat"
           case mcat of
-- 
cgit v1.2.3