-- | Move the cursor into an element, and use the current cursor context to
-- deserialize XML into an "a". Throw an exception if the element does not
-- exist.
(!<=>) :: (Failure XmlException m, Applicative m, FromXML a)
       => Cursor -> Text -> m a
el !<=> n = fromXML =<< el !<.> n
(!<=>) :: (Failure XmlException m, Applicative m, FromXML a)
       => Cursor -> Text -> m a
el !<=> n = fromXML =<< el !<.> n
el !<=> n = fromXML =<< el !<.> n