From 94326929b144913642121bef8f8ecc98feb992e7 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Mon, 3 Nov 2003 16:27:55 +0000
Subject: Fixed several things, e.g. tokenizer.

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

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

diff --git a/src/GF/Infra/Modules.hs b/src/GF/Infra/Modules.hs
index ed3e2db83..5d2e0fd15 100644
--- a/src/GF/Infra/Modules.hs
+++ b/src/GF/Infra/Modules.hs
@@ -63,6 +63,9 @@ updateModule (Module  mt ms fs me ops js) i t =
 replaceJudgements :: Module i f t -> BinTree (i,t) -> Module i f t
 replaceJudgements (Module mt ms fs me ops _) js = Module mt ms fs me ops js
 
+allFlags :: MGrammar i f a -> [f]
+allFlags gr = concat $ map flags $ reverse [m | (_, ModMod m) <- modules gr]
+
 data MainGrammar i = MainGrammar {
     mainAbstract  :: i ,
     mainConcretes :: [MainConcreteSpec i]
-- 
cgit v1.2.3