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 パッケージに同様のものが見つからないことに驚いています。