prettyFieldHexS :: String -> Word32 -> PP.Doc -> PP.Doc
prettyFieldHexS n v s =
  prettyField n $ M.mconcat [ "0x", hp v, " (", s, ")" ]
  where
    hp = if v >= 0x10000
         then word20HexFixed
         else (word16HexFixed . fromIntegral)
prettyFieldHexS :: String -> Word32 -> PP.Doc -> PP.Doc
prettyFieldHexS n v s =
  prettyField n $ M.mconcat [ "0x", hp v, " (", s, ")" ]
  where
    hp = if v >= 0x10000
         then word20HexFixed
         else (word16HexFixed . fromIntegral)
prettyFieldHexS n v s =
  prettyField n $ M.mconcat [ "0x", hp v, " (", s, ")" ]
  where
    hp = if v >= 0x10000
         then word20HexFixed
         else (word16HexFixed . fromIntegral)