Added PGF.Macros.mapConcretes

This commit is contained in:
bjorn
2008-10-20 14:51:42 +00:00
parent 05343e78a9
commit 6b8c9dd4c9
4 changed files with 9 additions and 7 deletions

View File

@@ -51,7 +51,7 @@ mkCanon2gfcc opts cnc gr =
-- Adds parsers for all concretes
addParsers :: Options -> D.PGF -> D.PGF
addParsers opts pgf = pgf { D.concretes = Map.map conv (D.concretes pgf) }
addParsers opts pgf = CM.mapConcretes conv pgf
where
conv cnc = cnc { D.parser = Just pinfo }
where