documentToTextWithoutXMLHeader :: Document -> T.Text
documentToTextWithoutXMLHeader document =
  let events = Prelude.tail $ toEvents $ toXMLDocument document
  in T.concat $
     unsafePerformIO $
     lazyConsume $
     sourceList events $=
     renderText def
documentToTextWithoutXMLHeader :: Document -> T.Text
documentToTextWithoutXMLHeader document =
  let events = Prelude.tail $ toEvents $ toXMLDocument document
  in T.concat $
     unsafePerformIO $
     lazyConsume $
     sourceList events $=
     renderText def
documentToTextWithoutXMLHeader document =
  let events = Prelude.tail $ toEvents $ toXMLDocument document
  in T.concat $
     unsafePerformIO $
     lazyConsume $
     sourceList events $=
     renderText def