diff options
Diffstat (limited to 'src/PGF')
| -rw-r--r-- | src/PGF/Macros.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |