From d476419274cdf2997d768444cecc47922a902fdf Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Tue, 14 Jan 2014 05:51:14 -0500 Subject: [PATCH] Un-haddock two comments that wound up in the wrong place due to template haskell. --- src/TSN/XML/News.hs | 11 +++++------ src/TSN/XML/Odds.hs | 5 ++--- 2 files changed, 7 insertions(+), 9 deletions(-) diff --git a/src/TSN/XML/News.hs b/src/TSN/XML/News.hs index 7d8ef75..6e10aed 100644 --- a/src/TSN/XML/News.hs +++ b/src/TSN/XML/News.hs @@ -227,9 +227,9 @@ instance DbImport Message where return ImportSucceeded --- | These types don't have special XML representations or field name --- collisions so we use the defaultCodegenConfig and give their --- fields nice simple names. +-- These types don't have special XML representations or field name +-- collisions so we use the defaultCodegenConfig and give their +-- fields nice simple names. mkPersist defaultCodegenConfig [groundhog| - entity: NewsTeam dbName: news_teams @@ -252,9 +252,8 @@ mkPersist defaultCodegenConfig [groundhog| |] --- | These types have fields with e.g. db_ and xml_ prefixes, so we --- use our own codegen to peel those off before naming the columns. --- +-- These types have fields with e.g. db_ and xml_ prefixes, so we +-- use our own codegen to peel those off before naming the columns. mkPersist tsn_codegen_config [groundhog| - entity: News dbName: news diff --git a/src/TSN/XML/Odds.hs b/src/TSN/XML/Odds.hs index 509b436..3e231c2 100644 --- a/src/TSN/XML/Odds.hs +++ b/src/TSN/XML/Odds.hs @@ -367,9 +367,8 @@ instance XmlImport Message --- | Groundhog database schema. This must come before the DbImport --- instance definition. --- +-- Groundhog database schema. This must come before the DbImport +-- instance definition. mkPersist tsn_codegen_config [groundhog| - entity: Odds -- 2.43.2