{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE FlexibleInstances #-}
import Data.Time ( UTCTime(..) )
import Data.Tuple.Curry ( uncurryN )
import Data.Typeable ( Typeable )
import Data.Time ( UTCTime(..) )
import Data.Tuple.Curry ( uncurryN )
import Data.Typeable ( Typeable )
import TSN.Codegen ( tsn_codegen_config )
import TSN.DbImport ( DbImport(..), ImportResult(..), run_dbmigrate )
import TSN.Picklers (
import TSN.Codegen ( tsn_codegen_config )
import TSN.DbImport ( DbImport(..), ImportResult(..), run_dbmigrate )
import TSN.Picklers (
xml_time_stamp :: UTCTime }
deriving (Eq, GHC.Generic, Show)
xml_time_stamp :: UTCTime }
deriving (Eq, GHC.Generic, Show)
-- | XML representation of a \<Listing\> contained within a
-- \<message\>. The leading underscores prevent unused field
-- | XML representation of a \<Listing\> contained within a
-- \<message\>. The leading underscores prevent unused field
_xml_earnings :: Maybe Int }
deriving (Eq, GHC.Generic, Show)
_xml_earnings :: Maybe Int }
deriving (Eq, GHC.Generic, Show)
instance ToDb AutoRacingResultsListingXml where
-- | The database analogue of an 'AutoRacingResultsListingXml' is
instance ToDb AutoRacingResultsListingXml where
-- | The database analogue of an 'AutoRacingResultsListingXml' is
-- 'AutoRacingResultsListing', we add the foreign key and copy
-- everything else verbatim.
--
-- 'AutoRacingResultsListing', we add the foreign key and copy
-- everything else verbatim.
--
xp13Tuple (xpElem "FinishPosition" xpInt)
(xpElem "StartingPosition" xpInt)
(xpElem "CarNumber" xpInt)
xp13Tuple (xpElem "FinishPosition" xpInt)
(xpElem "StartingPosition" xpInt)
(xpElem "CarNumber" xpInt)
xp13Tuple (xpElem "XML_File_ID" xpInt)
(xpElem "heading" xpText)
(xpElem "category" xpText)
xp13Tuple (xpElem "XML_File_ID" xpInt)
(xpElem "heading" xpText)
(xpElem "category" xpText)