ppExpr' prec (ExprCond e1 e2 e3)
  = if prec > cond_prec then parens e else e
  where
    e = fsep [ ppExpr e1, char '?', ppExpr e2, colon, ppExpr e3 ]
ppExpr' prec (ExprCond e1 e2 e3)
  = if prec > cond_prec then parens e else e
  where
    e = fsep [ ppExpr e1, char '?', ppExpr e2, colon, ppExpr e3 ]
ppExpr' prec (ExprCond e1 e2 e3)
  = if prec > cond_prec then parens e else e
  where
    e = fsep [ ppExpr e1, char '?', ppExpr e2, colon, ppExpr e3 ]