ppCaseItem :: CaseItem -> Doc
ppCaseItem (CaseItem es mb_stmt)
  = fsep [ commasep (map ppExpr es) <+> colon, maybe semi ppStatement mb_stmt ]
ppCaseItem :: CaseItem -> Doc
ppCaseItem (CaseItem es mb_stmt)
  = fsep [ commasep (map ppExpr es) <+> colon, maybe semi ppStatement mb_stmt ]
ppCaseItem (CaseItem es mb_stmt)
  = fsep [ commasep (map ppExpr es) <+> colon, maybe semi ppStatement mb_stmt ]