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,