X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=Mate%2FClassPool.hs;h=0f1828981f1af5c4c23c4132132ff592656ff011;hb=1315c607541c6fe37830242dfca042e60a2b6eb0;hp=8b3e8a961fdb71af97418061fe2f23f8ceeb3041;hpb=14b1554eedad2c726dd39b17564f6e05ba4e7b19;p=mate.git

diff --git a/Mate/ClassPool.hs b/Mate/ClassPool.hs
index 8b3e8a9..0f18289 100644
--- a/Mate/ClassPool.hs
+++ b/Mate/ClassPool.hs
@@ -260,7 +260,7 @@ loadAndInitClass path = do
   -- execute class initializer
   case lookupMethod "<clinit>" (ciFile ci) of
     Just m -> do
-      hmap <- parseMethod (ciFile ci) "<clinit>"
+      hmap <- parseMethod (ciFile ci) "<clinit>" $ MethodSignature [] ReturnsVoid
       case hmap of
         Just hmap' -> do
           let mi = MethodInfo "<clinit>" path (methodSignature m)