@@ -571,7 +571,7 @@ resolveImport currentModule importModule exps imps impQual =
571 check (PositionedDeclarationRef pos _ r) =
571 check (PositionedDeclarationRef pos _ r) =
572 rethrowWithPosition pos $ check r
572 rethrowWithPosition pos $ check r
573 check (ValueRef name) =
573 check (ValueRef name) =
574− checkImportExists UnknownImportValue values name >> return ()
574+ checkImportExists UnknownImportValue values name
575 check (TypeRef name dctors) = do
575 check (TypeRef name dctors) = do
576 checkImportExists UnknownImportType availableTypes name
576 checkImportExists UnknownImportType availableTypes name
577 let allDctors = allExportedDataConstructors name
577 let allDctors = allExportedDataConstructors name