-- Picklers, needed to read from XML
xpAnime :: PU Anime
xpAnime 
  = xpElem "anime" $ 
  xpFilterCont (hasName "series_title" 
                <+> hasName "my_status") $ 
  xpWrap ( uncurry Anime
         , \s ->  (title s, status s)
         ) $
  xpPair ( xpElem "series_title" $ xpText )
         ( xpElem "my_status" $ xpText)
xpAnime :: PU Anime
xpAnime 
  = xpElem "anime" $ 
  xpFilterCont (hasName "series_title" 
                <+> hasName "my_status") $ 
  xpWrap ( uncurry Anime
         , \s ->  (title s, status s)
         ) $
  xpPair ( xpElem "series_title" $ xpText )
         ( xpElem "my_status" $ xpText)
xpAnime 
  = xpElem "anime" $ 
  xpFilterCont (hasName "series_title" 
                <+> hasName "my_status") $ 
  xpWrap ( uncurry Anime
         , \s ->  (title s, status s)
         ) $
  xpPair ( xpElem "series_title" $ xpText )
         ( xpElem "my_status" $ xpText)