Text.XML.HaXml.Types.Documentを に変換するHaXml ライブラリ関数を探していText.XML.HaXml.Types.Contentます。
本Real World Haskellでは、次の関数が提供されています。
getContent :: Document -> Content
getContent (Document _ _ e _) = CElem e
これは次のように変更する必要があると思います
getContent :: Document -> Content
getContent (Document _ _ e _) = CElem e undefined
HaXml パッケージに同様のものが見つからないことに驚いています。