protoDesc' :: DexFile -> ProtoId -> PP.Doc
protoDesc' dex pid =
  case getProto dex pid of
    Nothing -> "<unknown prototype ID: " <> word16HexFixed pid <> ">"
    Just proto -> protoDesc dex proto
protoDesc' :: DexFile -> ProtoId -> PP.Doc
protoDesc' dex pid =
  case getProto dex pid of
    Nothing -> "<unknown prototype ID: " <> word16HexFixed pid <> ">"
    Just proto -> protoDesc dex proto
protoDesc' dex pid =
  case getProto dex pid of
    Nothing -> "<unknown prototype ID: " <> word16HexFixed pid <> ">"
    Just proto -> protoDesc dex proto