diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-12-04 11:07:39 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-12-04 11:07:39 +0000 |
| commit | 7051331c20d5a9f1eaf5f9f25bca2891f9277370 (patch) | |
| tree | 71e165f6a6e6a12278a7832a1a536d2846347f04 /src/GF/Devel/Grammar/Modules.hs | |
| parent | a7b68870508b90ab1a9e635489ff4e687713d166 (diff) | |
test for new GF source format
Diffstat (limited to 'src/GF/Devel/Grammar/Modules.hs')
| -rw-r--r-- | src/GF/Devel/Grammar/Modules.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/GF/Devel/Grammar/Modules.hs b/src/GF/Devel/Grammar/Modules.hs index 774cc6387..0d3d96114 100644 --- a/src/GF/Devel/Grammar/Modules.hs +++ b/src/GF/Devel/Grammar/Modules.hs @@ -27,13 +27,13 @@ data Module = Module { mextends :: [(Ident,MInclude)], mopens :: [(Ident,Ident)], -- used name, original name mflags :: Map Ident String, - mjments :: Map Ident (Either Judgement Ident) -- def or indirection + mjments :: Map Ident (Either Judgement Indirection) -- def or indirection } emptyModule :: Ident -> Module emptyModule m = Module MTGrammar [] [] [] [] empty empty -listJudgements :: Module -> [(Ident,Either Judgement Ident)] +listJudgements :: Module -> [(Ident,Either Judgement Indirection)] listJudgements = assocs . mjments data ModuleType = @@ -46,4 +46,5 @@ data MInclude = | MIExcept [Ident] | MIOnly [Ident] +type Indirection = (Ident,Bool) -- module of origin, whether canonical |