: CFDI -> String
toXML cfdi = unlines
  [ "<?xml version='1.0' encoding='UTF-8' ?>"
  , ppcElement prettyConfigPP (renderNode cfdi)
  ]

toXML :: CFDI -> String
toXML cfdi = unlines
  [ "<?xml version='1.0' encoding='UTF-8' ?>"
  , ppcElement prettyConfigPP (renderNode cfdi)
  ]
toXML cfdi = unlines
  [ "<?xml version='1.0' encoding='UTF-8' ?>"
  , ppcElement prettyConfigPP (renderNode cfdi)
  ]