-- precedence-aware expression pretty printer - adds parens when it needs to
ppExpr' :: Int -> Expression -> Doc
ppExpr' _ (ExprNum x)
  = text (show x)
ppExpr' :: Int -> Expression -> Doc
ppExpr' _ (ExprNum x)
  = text (show x)
ppExpr' _ (ExprNum x)
  = text (show x)