+lookupMethodRecursive :: B.ByteString -> [B.ByteString] -> Class Resolved
+ -> IO (Maybe ((Method Resolved, [B.ByteString], Class Resolved)))
+lookupMethodRecursive name clsnames cls = do
+ case res of
+ Just x -> return $ Just (x, nextclsn, cls)
+ Nothing -> if thisname == "java/lang/Object"
+ then return $ Nothing
+ else do
+ supercl <- getClassFile (superClass cls)
+ lookupMethodRecursive name nextclsn supercl
+ where
+ res = lookupMethod name cls
+ thisname = thisClass cls
+ nextclsn :: [B.ByteString]
+ nextclsn = thisname:clsnames
+