3 import qualified Data.ByteString.Lazy as B
5 import qualified JVM.Assembler as J
6 import JVM.Assembler hiding (Instruction)
11 -- TODO: actually this function already exists in hs-java-0.3!
12 lookupMethod :: B.ByteString -> Class Resolved -> Maybe (Method Resolved)
13 lookupMethod name cls = look (classMethods cls)
17 | methodName f == name = Just f