@@ -571,7 +571,7 @@ resolveImport currentModule importModule exps imps impQual =
571571 check (PositionedDeclarationRef pos _ r) =
572572 rethrowWithPosition pos $ check r
573573 check (ValueRef name) =
574− checkImportExists UnknownImportValue values name >> return ()
574+ checkImportExists UnknownImportValue values name
575575 check (TypeRef name dctors) = do
576576 checkImportExists UnknownImportType availableTypes name
577577 let allDctors = allExportedDataConstructors name