diff options
Diffstat (limited to 'src/GF/Infra/Modules.hs')
| -rw-r--r-- | src/GF/Infra/Modules.hs | 3 |
1 files changed, 3 insertions, 0 deletions
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] |