-{-# LANGUAGE BangPatterns #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE GADTs #-}
(xpElem "Title" xpText)
(xpElem "Line_Time" xpText)
pickle_notes
- (xpList $ pickle_game)
+ (xpList pickle_game)
pickle_notes
- (xpList $ pickle_game)
+ (xpList pickle_game)
(xpElem "time_stamp" xpText)
where
from_tuple = uncurryN MessageXml
pickle_notes :: PU String
pickle_notes =
xpWrap (to_string, from_string) $
- (xpList $ xpElem "Notes" xpText)
+ xpList (xpElem "Notes" xpText)
where
from_string :: String -> [String]
from_string = split "\n"