the parser can read .gfm files (but they are not yet compiled all the way)

This commit is contained in:
aarne
2006-01-24 15:18:46 +00:00
parent bcb62c87c5
commit e8d50c3841
3 changed files with 17 additions and 8 deletions

View File

@@ -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)