prettyPosition :: PositionInfo -> PP.Doc
prettyPosition (PositionInfo a l) = "        0x" <> word16HexFixed (fromIntegral a) <> " line=" <> word32Dec l
prettyPosition :: PositionInfo -> PP.Doc
prettyPosition (PositionInfo a l) = "        0x" <> word16HexFixed (fromIntegral a) <> " line=" <> word32Dec l
prettyPosition (PositionInfo a l) = "        0x" <> word16HexFixed (fromIntegral a) <> " line=" <> word32Dec l