let methods = classMethods cls; methods :: [Method Direct]
case find (\x -> methodName x == "main") methods of
Just m -> do
let mi = MethodInfo "main" bclspath $ methodSignature m
rawmethod <- parseMethod cls "main" $ methodSignature m
let methods = classMethods cls; methods :: [Method Direct]
case find (\x -> methodName x == "main") methods of
Just m -> do
let mi = MethodInfo "main" bclspath $ methodSignature m
rawmethod <- parseMethod cls "main" $ methodSignature m