From 65f012d15513814bd2cc4ad74f54edd35ade13fe Mon Sep 17 00:00:00 2001
From: bringert <unknown>
Date: Mon, 23 Aug 2004 07:51:36 +0000
Subject: Added CFGM format (pm -printer=cfgm) and utf8 conversion for pm.

---
 src/GF/Infra/Modules.hs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/GF/Infra/Modules.hs')

diff --git a/src/GF/Infra/Modules.hs b/src/GF/Infra/Modules.hs
index 8272635f7..762edb0e2 100644
--- a/src/GF/Infra/Modules.hs
+++ b/src/GF/Infra/Modules.hs
@@ -75,6 +75,12 @@ addOpenQualif i j (Module mt ms fs me ops js) =
 allFlags :: MGrammar i f a -> [f]
 allFlags gr = concat $ map flags $ reverse [m | (_, ModMod m) <- modules gr]
 
+mapModules :: (Module i f a -> Module i f a) 
+	   -> MGrammar i f a -> MGrammar i f a 
+mapModules f = MGrammar . map (onSnd mapModules') . modules
+    where mapModules' (ModMod m) = ModMod (f m)
+	  mapModules' m = m
+
 data MainGrammar i = MainGrammar {
     mainAbstract  :: i ,
     mainConcretes :: [MainConcreteSpec i]
-- 
cgit v1.2.3