ppStatement (CaseStmt case_type expr case_items)
  = text (show case_type) <+> parens (ppExpr expr) $$
    nest 2 (vcat (map ppCaseItem case_items)) $$
    text "endcase"
ppStatement (CaseStmt case_type expr case_items)
  = text (show case_type) <+> parens (ppExpr expr) $$
    nest 2 (vcat (map ppCaseItem case_items)) $$
    text "endcase"
ppStatement (CaseStmt case_type expr case_items)
  = text (show case_type) <+> parens (ppExpr expr) $$
    nest 2 (vcat (map ppCaseItem case_items)) $$
    text "endcase"