Added PGF.Macros.mapConcretes

2008-10-20 14:51:42 +00:00
parent e5a595567a
commit aed72e7653
4 changed files with 9 additions and 7 deletions
--- a/src/GF/Compile/GrammarToGFCC.hs
+++ b/src/GF/Compile/GrammarToGFCC.hs
@@ -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