From e8d50c3841380fd46ca511da532fc1aca6c7335a Mon Sep 17 00:00:00 2001 From: aarne Date: Tue, 24 Jan 2006 15:18:46 +0000 Subject: the parser can read .gfm files (but they are not yet compiled all the way) --- src/GF/Compile/ModDeps.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/GF/Compile/ModDeps.hs') 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) -- cgit v1.2.3