X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTSN%2FXML%2FNews.hs;h=b9bc3df4f84b98c58f369085868987d9cbecdbe3;hb=71e4436c45b1694fbc550d5cfc2a0cde216610f6;hp=a630ef7025cd6bbb31a4eb3a2db13253ad93687b;hpb=12a8d95e873234893066e9422e0ce731e0e3e6ac;p=dead%2Fhtsn-import.git

diff --git a/src/TSN/XML/News.hs b/src/TSN/XML/News.hs
index a630ef7..b9bc3df 100644
--- a/src/TSN/XML/News.hs
+++ b/src/TSN/XML/News.hs
@@ -80,7 +80,9 @@ instance XmlImport NewsTeam
 
 
 -- | Mapping between News records and NewsTeam records in the
---   database.
+--   database. We don't name the fields because we don't use the names
+--   explicitly; that means we have to give them nice database names
+--   via groundhog.
 --
 data News_NewsTeam = News_NewsTeam
                        (DefaultKey News)
@@ -111,7 +113,9 @@ instance XmlImport NewsLocation
 
 
 -- | Mapping between News records and NewsLocation records in the
---   database.
+--   database. We don't name the fields because we don't use the names
+--   explicitly; that means we have to give them nice database names
+--   via groundhog.
 --
 data News_NewsLocation = News_NewsLocation
                            (DefaultKey News)
@@ -273,9 +277,9 @@ mkPersist tsn_codegen_config [groundhog|
   constructors:
     - name: News_NewsTeam
       fields:
-        - name: news_NewsTeam0
+        - name: news_NewsTeam0 # Default created by mkNormalFieldName
           dbName: news_id
-        - name: news_NewsTeam1
+        - name: news_NewsTeam1 # Default created by mkNormalFieldName
           dbName: news_teams_id
 
 - entity: News_NewsLocation
@@ -283,9 +287,9 @@ mkPersist tsn_codegen_config [groundhog|
   constructors:
     - name: News_NewsLocation
       fields:
-        - name: news_NewsLocation0
+        - name: news_NewsLocation0 # Default created by mkNormalFieldName
           dbName: news_id
-        - name: news_NewsLocation1
+        - name: news_NewsLocation1 # Default created by mkNormalFieldName
           dbName: news_locations_id
 |]