-- are not retained.
--
module TSN.XML.InjuriesDetail (
- Message,
- injuries_detail_tests )
+ injuries_detail_tests,
+ pickle_message )
where
import Data.Time ( UTCTime )
import Test.Tasty.HUnit ( (@?=), testCase )
import Text.XML.HXT.Core (
PU,
- XmlPickler(..),
xpTriple,
xp6Tuple,
xp10Tuple,
injured pl,
injury_type pl)
-instance XmlPickler PlayerListing where
- xpickle = pickle_player_listing
pickle_listing :: PU Listing
pickle_listing =
from_tuple = uncurryN Listing
to_tuple l = (listing_team_id l, full_name l, player_listings 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
injuries_detail_tests :: TestTree