fieldStr :: DexFile -> FieldId -> PP.Doc
fieldStr dex fid =
  case getField dex fid of
    Nothing -> "<unknown field ID: " <> word16HexFixed fid <> ">"
    Just fld ->
      getTypeName' dex (fieldClassId fld) <> "." <>
      getStr' dex (fieldNameId fld) <> ":" <>
      getTypeName' dex (fieldTypeId fld)
fieldStr :: DexFile -> FieldId -> PP.Doc
fieldStr dex fid =
  case getField dex fid of
    Nothing -> "<unknown field ID: " <> word16HexFixed fid <> ">"
    Just fld ->
      getTypeName' dex (fieldClassId fld) <> "." <>
      getStr' dex (fieldNameId fld) <> ":" <>
      getTypeName' dex (fieldTypeId fld)
fieldStr dex fid =
  case getField dex fid of
    Nothing -> "<unknown field ID: " <> word16HexFixed fid <> ">"
    Just fld ->
      getTypeName' dex (fieldClassId fld) <> "." <>
      getStr' dex (fieldNameId fld) <> ":" <>
      getTypeName' dex (fieldTypeId fld)