- let method = case lookupMethodSig methodname sig cls of
- Just m -> m
- Nothing -> error $ "method " ++ (show . toString) methodname ++ " not found"
- let codeseg = case attrByName method "Code" of
- Just m -> m
- Nothing -> error $ "codeseg " ++ (show . toString) methodname ++ " not found"
+ let method = fromMaybe
+ (error $ "method " ++ (show . toString) methodname ++ " not found")
+ (lookupMethodSig methodname sig cls)
+ let codeseg = fromMaybe
+ (error $ "codeseg " ++ (show . toString) methodname ++ " not found")
+ (attrByName method "Code")