-- automatically. The root message is not retained.
--
module TSN.XML.Injuries (
- Message,
- injuries_tests )
+ injuries_tests,
+ pickle_message )
where
import Data.Data ( Data )
import Test.Tasty.HUnit ( (@?=), testCase )
import Text.XML.HXT.Core (
PU,
- XmlPickler(..),
xp4Tuple,
xp6Tuple,
xpAttr,
from_tuple = uncurryN InjuriesTeam
to_tuple m = (team_name m, team_league m)
-instance XmlPickler InjuriesTeam where
- xpickle = pickle_injuries_team
pickle_listing :: PU Listing
pickle_listing =
from_tuple = uncurryN Listing
to_tuple l = (team l, teamno l, injuries l, updated l)
-instance XmlPickler Listing where
- xpickle = pickle_listing
-
pickle_message :: PU Message
pickle_message =
listings m,
time_stamp m)
-instance XmlPickler Message where
- xpickle = pickle_message
-
-- * Tasty Tests