XML alternative of Text.JSON.Generic for Haskell

Is there any XML-(de)serializer for Haskell using Data/Typeable with 开发者_运维问答functions similar to

toXml :: Data d => d -> XmlValue
fromXml :: Data d => String -> Result d

in the spirit of Text.JSON.Generic?

Please check this TypLAB article—it uses generic programming (multirec rather than SYB) to convert from and to XML.