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/PGF/Macros.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/PGF')

diff --git a/src/PGF/Macros.hs b/src/PGF/Macros.hs
index b3847d4a0..d8e203727 100644
--- a/src/PGF/Macros.hs
+++ b/src/PGF/Macros.hs
@@ -49,8 +49,8 @@ lookValCat pgf = valCat . lookType pgf
 lookParser :: PGF -> CId -> Maybe ParserInfo
 lookParser pgf lang = Map.lookup lang (concretes pgf) >>= parser
 
-lookStartCat :: PGF -> String
-lookStartCat pgf = fromMaybe "S" $ msum $ Data.List.map (Map.lookup (mkCId "startcat"))
+lookStartCat :: PGF -> CId
+lookStartCat pgf = mkCId $ fromMaybe "S" $ msum $ Data.List.map (Map.lookup (mkCId "startcat"))
                                                         [gflags pgf, aflags (abstract pgf)]
 
 lookGlobalFlag :: PGF -> CId -> String
-- 
cgit v1.2.3