-- | Get the text content of an element, throwing an exception if the element
-- does not exist.
(!<|>) :: Failure XmlException m => Cursor -> Text -> m Text
el !<|> n = forceEx ("missing " ++ T.unpack n) $ el $/ (cont <=< laxElement n)
(!<|>) :: Failure XmlException m => Cursor -> Text -> m Text
el !<|> n = forceEx ("missing " ++ T.unpack n) $ el $/ (cont <=< laxElement n)
el !<|> n = forceEx ("missing " ++ T.unpack n) $ el $/ (cont <=< laxElement n)