tiny fragment showing so-simple-they're-not-documented HXT pickler examples

simple pickles.hs

-- targeting this XML:
-- <label id="123">do</label>

xpLabel :: PU Label
xpLabel = xpElem "label" $
          xpWrap ( uncurry Label
                 , \l -> (lid l, ltext l)
                 ) $
          xpPair (xpAttr "id" xpickle)
                 (xpXmlText)

-- targetting this XML:
-- <description>Some stuff in here</description>

data Description = Description String deriving (Eq, Show)

instance XmlPickler Description where
    xpickle = xpDescription

xpDescription :: PU Description
xpDescription
    = xpElem "description" $
      xpWrap (\ n -> Description n
             , \ (Description n) -> n ) $
      xpXmlText