import TSN.Picklers ( xp_time_stamp )
import TSN.XmlImport ( XmlImport(..), XmlImportFk(..) )
import Xml (
+ Child(..),
FromXml(..),
FromXmlFk(..),
ToDb(..),
--
type Db ScoreGameXml = ScoreGame
-instance FromXmlFk ScoreGameXml where
+
+instance Child ScoreGameXml where
-- | Each 'ScoreGameXml' is contained in (i.e. has a foreign key to)
-- a 'Score'.
--
type Parent ScoreGameXml = Score
+
+instance FromXmlFk ScoreGameXml where
from_xml_fk fk ScoreGameXml{..} =
ScoreGame {
db_scores_id = fk,
-- * ScoreGame_ScoreGameTeam
-- | Join a 'ScoreGame' with its home/away teams. Database-only. We
--- use a join table because the teams are kept unique.
+-- use a join table because the teams are kept unique. The first
+-- argument is the game id, the second argument is the visiting team
+-- (vteam) id, and the last argument is the home team (hteam) id.
--
data ScoreGame_ScoreGameTeam =
ScoreGame_ScoreGameTeam
- (DefaultKey ScoreGame) -- ^ game id
- (DefaultKey ScoreGameTeam) -- ^ vteam id
- (DefaultKey ScoreGameTeam) -- ^ hteam id
+ (DefaultKey ScoreGame) -- game id
+ (DefaultKey ScoreGameTeam) -- vteam id
+ (DefaultKey ScoreGameTeam) -- hteam id
-- * ScoreLocation