-- TODO: check if the string is a valid Verilog identifier.
--       throw error, or convert it into a valid identifier.
ppIdent :: Ident -> Doc
ppIdent (Ident x) = text x
ppIdent :: Ident -> Doc
ppIdent (Ident x) = text x
ppIdent (Ident x) = text x