From e96fc68293b6ac51eb0e8a4fe9ac9afa515cca83 Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Sat, 5 Jul 2014 21:19:36 -0400 Subject: [PATCH] Update two comments. --- src/TSN/XML/Scores.hs | 3 +++ src/TSN/XML/Weather.hs | 3 ++- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/src/TSN/XML/Scores.hs b/src/TSN/XML/Scores.hs index 66ef90b..8ae86a8 100644 --- a/src/TSN/XML/Scores.hs +++ b/src/TSN/XML/Scores.hs @@ -129,6 +129,9 @@ instance ToDb Message where type Db Message = Score instance FromXml Message where + -- | When converting from the XML representation to the database + -- one, we drop the list of locations which will be foreign-keyed to + -- us instead. from_xml Message{..} = Score { db_xml_file_id = xml_xml_file_id, diff --git a/src/TSN/XML/Weather.hs b/src/TSN/XML/Weather.hs index 351df24..2146c3f 100644 --- a/src/TSN/XML/Weather.hs +++ b/src/TSN/XML/Weather.hs @@ -181,7 +181,8 @@ instance Child WeatherForecastXml where instance FromXmlFk WeatherForecastXml where -- | To convert a 'WeatherForecastXml' into a 'WeatherForecast', we - -- just copy everything verbatim. + -- add the foreign key to the containing 'Weather', and copy the + -- game date. -- from_xml_fk fk WeatherForecastXml{..} = WeatherForecast { -- 2.43.2