@@ -262,15 +262,12 @@ renameInModule env imports (Module ss coms mn decls exps) =
262262 -- by qualified importing). If that's not the case, then we just need to
263263 -- check it refers to a symbol in another module.
264264 (Nothing, Just mn'') -> do
265− when (isExplicitQualModule mn'') . throwError . errorMessage $ unknown qname
266265 modExports <- getExports mn''
267266 maybe (throwError . errorMessage $ unknown qname) return (getE modExports name)
268267 -- If neither of the above cases are true then it's an undefined or
269268 -- unimported symbol.
270269 _ -> throwError . errorMessage $ unknown qname
271270 where
272− isExplicitQualModule :: ModuleName -> Bool
273− isExplicitQualModule = flip elem $ mapMaybe (\(Qualified q _) -> q) (M.keys imps)
274271 positioned err = case pos of
275272 Nothing -> err
276273 Just pos' -> rethrowWithPosition pos' err