diff options
| -rw-r--r-- | src-3.0/PGF/Macros.hs | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src-3.0/PGF/Macros.hs b/src-3.0/PGF/Macros.hs index 01ab1bb6b..3577ed23a 100644 --- a/src-3.0/PGF/Macros.hs +++ b/src-3.0/PGF/Macros.hs @@ -51,9 +51,12 @@ lookAbsFlag :: PGF -> CId -> String lookAbsFlag pgf f = lookMap "?" f (aflags (abstract pgf)) -lookCncFlag :: PGF -> CId -> CId -> String -lookCncFlag pgf lang f = - lookMap "?" f $ cflags $ lookMap (error "no lang") lang $ concretes pgf +lookConcr :: PGF -> CId -> Concr +lookConcr pgf cnc = + lookMap (error $ "Missing concrete syntax: " ++ prCId cnc) cnc $ concretes pgf + +lookConcrFlag :: PGF -> CId -> CId -> Maybe String +lookConcrFlag pgf lang f = Map.lookup f $ cflags $ lookConcr pgf lang functionsToCat :: PGF -> CId -> [(CId,Type)] functionsToCat pgf cat = |