From 71e4436c45b1694fbc550d5cfc2a0cde216610f6 Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Mon, 13 Jan 2014 19:02:59 -0500 Subject: [PATCH] Add some more documentation to News.hs. --- src/TSN/XML/News.hs | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) 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 |] -- 2.44.2