-- | Parse a string containing xml to a value. On parse failure, will
-- call `error`.
fromXML :: XmlPickler a => String -> a
fromXML = runIdentity . fromXMLM
fromXML :: XmlPickler a => String -> a
fromXML = runIdentity . fromXMLM
fromXML = runIdentity . fromXMLM