diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-01-24 15:18:46 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-01-24 15:18:46 +0000 |
| commit | e8d50c3841380fd46ca511da532fc1aca6c7335a (patch) | |
| tree | 7e2a94f8fe337d7496e5630ddf71e11543149e44 /src/GF/Compile/ModDeps.hs | |
| parent | bcb62c87c58be2e922d9d7afb0476cbec8323043 (diff) | |
the parser can read .gfm files (but they are not yet compiled all the way)
Diffstat (limited to 'src/GF/Compile/ModDeps.hs')
| -rw-r--r-- | src/GF/Compile/ModDeps.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Compile/ModDeps.hs b/src/GF/Compile/ModDeps.hs index d2d3cbe83..737c7e4c1 100644 --- a/src/GF/Compile/ModDeps.hs +++ b/src/GF/Compile/ModDeps.hs @@ -57,7 +57,7 @@ checkUniqueErr ms = do checkUniqueImportNames :: [Ident] -> SourceModInfo -> Err () checkUniqueImportNames ns mo = case mo of ModMod m -> test [n | OQualif _ n v <- opens m, n /= v] - + _ -> return () --- Bad $ "bug: ModDeps does not treat" +++ show mo where test ms = testErr (all (`notElem` ns) ms) |