import TSN.Picklers ( xp_time_stamp )
import TSN.XmlImport ( XmlImport(..), XmlImportFk(..) )
import Xml (
+ Child(..),
FromXml(..),
FromXmlFk(..),
ToDb(..),
-- | The DB analogue of a 'InjuriesListingXml' is a 'InjuriesListing'
type Db InjuriesListingXml = InjuriesListing
-instance FromXmlFk InjuriesListingXml where
+instance Child InjuriesListingXml where
-- | Our foreign key points to an 'Injuries'.
type Parent InjuriesListingXml = Injuries
+instance FromXmlFk InjuriesListingXml where
-- | To convert between a 'InjuriesListingXml' and a
-- 'InjuriesListing', we simply append the foreign key.
from_xml_fk fk InjuriesListingXml{..} =