ppItem (TaskItem name decls stmt)
  = char '\n' <>  text "task" <+> ppIdent name <> semi $$
    nest 2 (vcat (map ppLocalDecl decls) $$
            ppStatement stmt) $$
    text "endtask"
ppItem (TaskItem name decls stmt)
  = char '\n' <>  text "task" <+> ppIdent name <> semi $$
    nest 2 (vcat (map ppLocalDecl decls) $$
            ppStatement stmt) $$
    text "endtask"
ppItem (TaskItem name decls stmt)
  = char '\n' <>  text "task" <+> ppIdent name <> semi $$
    nest 2 (vcat (map ppLocalDecl decls) $$
            ppStatement stmt) $$
    text "endtask"