X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=Mate.hs;fp=Mate.hs;h=911c1dbd1c1ef1b892a511c65835f3e3c73537e9;hb=4c504fbb0b276782af6cd250e5e9fd4fdcc26967;hp=d60df06367cd69bc5c6e85d00bff3940acef3c26;hpb=b8a6ff5c2652b513205f16cebe988e60475b9720;p=mate.git

diff --git a/Mate.hs b/Mate.hs
index d60df06..911c1db 100644
--- a/Mate.hs
+++ b/Mate.hs
@@ -30,7 +30,7 @@ main = do
       hmap <- parseMethod cls "main"
       case hmap of
         Just hmap' -> do
-          let methods = classMethods cls; methods :: [Method Resolved]
+          let methods = classMethods cls; methods :: [Method Direct]
           let method = find (\x -> methodName x == "main") methods
           case method of
             Just m -> do