From: Michael Orlitzky <michael@orlitzky.com>
Date: Tue, 14 Jan 2014 00:02:59 +0000 (-0500)
Subject: Add some more documentation to News.hs.
X-Git-Tag: 0.0.1~65
X-Git-Url: http://gitweb.michael.orlitzky.com/?a=commitdiff_plain;ds=sidebyside;h=71e4436c45b1694fbc550d5cfc2a0cde216610f6;p=dead%2Fhtsn-import.git

Add some more documentation to News.hs.
---

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
 |]