ppModule :: Module -> Doc
ppModule (Module name mb_paras ports body)
  = text "module" <+> ppIdent name $$
    mb ppParas mb_paras $$
    ppPorts ports <> semi <> char '\n' $$
    vcat (map ppItem body) $$
    text "endmodule" <> char '\n'
ppModule :: Module -> Doc
ppModule (Module name mb_paras ports body)
  = text "module" <+> ppIdent name $$
    mb ppParas mb_paras $$
    ppPorts ports <> semi <> char '\n' $$
    vcat (map ppItem body) $$
    text "endmodule" <> char '\n'
ppModule (Module name mb_paras ports body)
  = text "module" <+> ppIdent name $$
    mb ppParas mb_paras $$
    ppPorts ports <> semi <> char '\n' $$
    vcat (map ppItem body) $$
    text "endmodule" <> char '\n'