@@ -92,7 +92,7 @@ addTypeclass env mn name = do
9292addExport :: (Ord s, Show s) => M.Map ModuleName (S.Set s) -> ModuleName -> s -> Either String (M.Map ModuleName (S.Set s))
9393addExport exports mn name = case M.lookup mn exports of
9494 Just s -> if S.member name s
95− then Left $ "Module '" ++ show mn ++ "' has multiple definitions for '" ++ (show name) ++ "'"
95+ then Left $ "Module '" ++ show mn ++ "' has multiple definitions for '" ++ show name ++ "'"
9696 else Right $ M.insert mn (S.insert name s) exports
9797 Nothing -> Right $ M.insert mn (S.singleton name) exports
9898
@@ -113,7 +113,7 @@ rename modules = do
113113--
114114renameInModule :: ImportEnvironment -> Module -> Either String Module
115115renameInModule imports (Module mn decls) =
116− Module mn <$> mapM updateDecl decls >>= everywhereM ((mkM updateType) `extM` updateValue `extM` updateBinder)
116+ Module mn <$> mapM updateDecl decls >>= everywhereM (mkM updateType `extM` updateValue `extM` updateBinder)
117117 where
118118 updateDecl (TypeInstanceDeclaration cs (Qualified Nothing cn) ts ds) = do
119119 cn' <- updateClassName cn
@@ -197,7 +197,7 @@ resolveImports env (Module currentModule decls) = do
197197 resolveDcons result (mn, tcons) = case M.lookup mn scope of
198198 Just Nothing -> foldM (\result (tcon, dcons) -> foldM (resolveDef mn) result dcons) result (S.toList tcons)
199199 Just (Just expl) ->
200− let selectedTcons = filter (\(tcon, _) -> any (either (const False) ((==) tcon)) expl) (S.toList tcons) in
200+ let selectedTcons = filter (\(tcon, _) -> any (either (const False) (tcon ==)) expl) (S.toList tcons) in
201201 foldM (\result (tcon, dcons) -> foldM (resolveDef mn) result dcons) result selectedTcons
202202 Nothing -> Right result
203203 filterTypes result = either (const result) (`S.insert` result)