import Database.Groundhog.Sqlite ( withSqliteConn )
import Data.Tuple.Curry ( uncurryN )
import Test.Tasty ( TestTree, testGroup )
import Database.Groundhog.Sqlite ( withSqliteConn )
import Data.Tuple.Curry ( uncurryN )
import Test.Tasty ( TestTree, testGroup )
import TSN.Codegen ( tsn_codegen_config )
import TSN.DbImport ( DbImport(..), ImportResult(..), run_dbmigrate )
import TSN.Picklers ( xp_time_stamp )
import TSN.Codegen ( tsn_codegen_config )
import TSN.DbImport ( DbImport(..), ImportResult(..), run_dbmigrate )
import TSN.Picklers ( xp_time_stamp )
data InjuriesListingXml =
InjuriesListingXml {
xml_team :: InjuriesTeam,
data InjuriesListingXml =
InjuriesListingXml {
xml_team :: InjuriesTeam,
-- | Database representation of a 'InjuriesListing'. It possesses a
-- foreign key to an 'Injuries' object so that we can easily delete
-- | Database representation of a 'InjuriesListing'. It possesses a
-- foreign key to an 'Injuries' object so that we can easily delete
xml_sport :: String,
xml_listings :: [InjuriesListingXml],
xml_time_stamp :: UTCTime }
xml_sport :: String,
xml_listings :: [InjuriesListingXml],
xml_time_stamp :: UTCTime }
xpElem "listing" $
xpWrap (from_tuple, to_tuple) $
xp4Tuple pickle_injuries_team
xpElem "listing" $
xpWrap (from_tuple, to_tuple) $
xp4Tuple pickle_injuries_team
(xpElem "injuries" xpText)
(xpOption $ xpElem "updated" xpPrim)
where
from_tuple = uncurryN InjuriesListingXml
(xpElem "injuries" xpText)
(xpOption $ xpElem "updated" xpPrim)
where
from_tuple = uncurryN InjuriesListingXml