Fix unused field warnings in TSN.XML.AutoRacingDriverList.

diff --git a/src/TSN/XML/AutoRacingDriverList.hs b/src/TSN/XML/AutoRacingDriverList.hs
index 9d9e090a662fe96da230e8ff9d57422c6597d307..af4fb854ae0cf76544d893db0c5e35794ba875ad 100644 (file)
--- a/src/TSN/XML/AutoRacingDriverList.hs
+++ b/src/TSN/XML/AutoRacingDriverList.hs
@@ -143,20 +143,21 @@ instance XmlImport Message
 -- AutoRacingDriverListListing / AutoRacingDriverListListingXml
 
 -- | Database representation of a \<Listing\> contained within a
---   \<message\>.
+--   \<message\>. The leading underscores prevent unused field
+--   warnings.
 --
 data AutoRacingDriverListListing =
   AutoRacingDriverListListing {
-    db_auto_racing_driver_lists_id :: DefaultKey AutoRacingDriverList,
-    db_driver_id :: Int,
-    db_driver :: String,
-    db_height :: Maybe String,
-    db_weight :: Int,
-    db_date_of_birth :: UTCTime,
-    db_hometown :: String,
-    db_nationality :: Maybe String,
-    db_car_number :: Int,
-    db_car :: String }
+    _db_auto_racing_driver_lists_id :: DefaultKey AutoRacingDriverList,
+    _db_driver_id :: Int,
+    _db_driver :: String,
+    _db_height :: Maybe String,
+    _db_weight :: Int,
+    _db_date_of_birth :: UTCTime,
+    _db_hometown :: String,
+    _db_nationality :: Maybe String,
+    _db_car_number :: Int,
+    _db_car :: String }
   deriving ( GHC.Generic )
 
 -- | For 'Generics.prepend'.
@@ -165,19 +166,19 @@ instance Generic AutoRacingDriverListListing
 
 
 -- | XML representation of a \<Listing\> contained within a
---   \<message\>.
+--   \<message\>. The underscores prevent unused field warnings.
 --
 data AutoRacingDriverListListingXml =
   AutoRacingDriverListListingXml {
-    xml_driver_id :: Int,
-    xml_driver :: String,
-    xml_height :: Maybe String,
-    xml_weight :: Int,
-    xml_date_of_birth :: UTCTime,
-    xml_hometown :: String,
-    xml_nationality :: Maybe String,
-    xml_car_number :: Int,
-    xml_car :: String }
+    _xml_driver_id :: Int,
+    _xml_driver :: String,
+    _xml_height :: Maybe String,
+    _xml_weight :: Int,
+    _xml_date_of_birth :: UTCTime,
+    _xml_hometown :: String,
+    _xml_nationality :: Maybe String,
+    _xml_car_number :: Int,
+    _xml_car :: String }
   deriving (Eq, GHC.Generic, Show)
 
 -- | For 'Generics.to_tuple'.
@@ -250,7 +251,7 @@ mkPersist tsn_codegen_config [groundhog|
   constructors:
     - name: AutoRacingDriverListListing
       fields:
-        - name: db_auto_racing_driver_lists_id
+        - name: _db_auto_racing_driver_lists_id
           reference:
             onDelete: cascade