X-Git-Url: https://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTSN%2FXML%2FAutoRacingDriverList.hs;h=453986ea9fc21d26467bc1c75e7a54965521f4ec;hb=99cb78224987bd773f5c008df81302e07ff31e25;hp=af4fb854ae0cf76544d893db0c5e35794ba875ad;hpb=99eced1fcde33e5c5c63d8ae2853bda50eefec83;p=dead%2Fhtsn-import.git diff --git a/src/TSN/XML/AutoRacingDriverList.hs b/src/TSN/XML/AutoRacingDriverList.hs index af4fb85..453986e 100644 --- a/src/TSN/XML/AutoRacingDriverList.hs +++ b/src/TSN/XML/AutoRacingDriverList.hs @@ -25,6 +25,7 @@ where import Control.Monad ( forM_ ) import Data.Time ( UTCTime(..) ) import Data.Tuple.Curry ( uncurryN ) +import qualified Data.Vector.HFixed as H ( HVector, cons, convert ) import Database.Groundhog ( countAll, deleteAll, @@ -52,7 +53,6 @@ import Text.XML.HXT.Core ( xpWrap ) -- Local imports. -import Generics ( Generic(..), prepend, to_tuple ) import TSN.Codegen ( tsn_codegen_config ) import TSN.DbImport ( DbImport(..), ImportResult(..), run_dbmigrate ) import TSN.Picklers ( xp_date, xp_time_stamp ) @@ -106,9 +106,9 @@ data Message = xml_time_stamp :: UTCTime } deriving (Eq, GHC.Generic, Show) --- | For 'Generics.to_tuple'. +-- | For 'H.convert'. -- -instance Generic Message +instance H.HVector Message instance ToDb Message where @@ -160,9 +160,9 @@ data AutoRacingDriverListListing = _db_car :: String } deriving ( GHC.Generic ) --- | For 'Generics.prepend'. +-- | For 'H.convert'. -- -instance Generic AutoRacingDriverListListing +instance H.HVector AutoRacingDriverListListing -- | XML representation of a \