Replace Category with Type in the PGF API. Added readLanguage and showLanguage.

2026-04-21 02:39:31 -06:00 · 2008-10-20 11:35:05 +00:00
parent 3d92897a94
commit a26290659d
8 changed files with 28 additions and 21 deletions
--- 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