{-
ppStatement (SystemTaskEnableStmt name exprs)
  | null exprs = char '$' <> ppIdent name <> semi
  | otherwise  = char '$' <> ppIdent name <+> parens (commasep (map ppExpr exprs))
-}
ppStatement (DisableStmt name)
  = text "disable" <+> ppIdent name <> semi
ppStatement (DisableStmt name)
  = text "disable" <+> ppIdent name <> semi
ppStatement (DisableStmt name)
  = text "disable" <+> ppIdent name <> semi