@@ -365,17 +365,11 @@ mkGlobalContext initExps = do
365365
366366addMainMethod :: [Decl] -> [Decl]
367367addMainMethod decls
368− | findMain decls = mkMainMethod : decls
368+ | findMainMethod decls = mkMainMethod : decls
369369 | otherwise = decls
370370 where
371− findMain ((MemberDecl (MemberClassDecl (ClassDecl _ name _ _ _ (ClassBody body)))):_)
372− | name == mangle' (sUN "Main") = findMainMethod body
373− findMain (_:decls) = findMain decls
374− findMain [] = False
375−
376− innerMainMethod = (either error id $ mangle (sUN "main"))
377371 findMainMethod ((MemberDecl (MethodDecl _ _ _ name [] _ _)):_)
378− | name == mangle' (sUN "main") = True
372+ | name == mangle' (sMN 0 "runMain") = True
379373 findMainMethod (_:decls) = findMainMethod decls
380374 findMainMethod [] = False
381375