ppNetDecl :: NetDecl -> Doc
ppNetDecl (NetDecl t mb_range mb_delay vars)
  = text (show t) <+>
    mb ppExpandRange mb_range <+>
    mb ppDelay mb_delay <+>
    ppIdents vars <> semi
ppNetDecl :: NetDecl -> Doc
ppNetDecl (NetDecl t mb_range mb_delay vars)
  = text (show t) <+>
    mb ppExpandRange mb_range <+>
    mb ppDelay mb_delay <+>
    ppIdents vars <> semi
ppNetDecl (NetDecl t mb_range mb_delay vars)
  = text (show t) <+>
    mb ppExpandRange mb_range <+>
    mb ppDelay mb_delay <+>
    ppIdents vars <> semi