first steps

Pickle.hs

{-# LANGUAGE Arrows #-}
module Pickle where

import Control.Arrow
import Control.Arrow.ListArrow
import Text.XML.HXT.Arrow.Pickle
import Text.XML.HXT.Arrow.ReadDocument

data Strukt = Strukt {
  text :: String
} deriving (Show, Eq)

main = do
  putStrLn $ show $ load xml1

xml1 = "<strukt>ssss</strukt>"

instance XmlPickler Strukt where
  xpickle = xpStrukt

xpStrukt :: PU Strukt
xpStrukt = xpElem "strukt" $ xpWrap (Strukt, text) $ xpText

load = listToMaybe .  (runLA $ xread >>> (xunpickleVal xpStrukt))