From: Michael Orlitzky <michael@orlitzky.com>
Date: Sun, 19 Jan 2014 15:45:22 +0000 (-0500)
Subject: Add docs for TSN.XML.Weather.
X-Git-Tag: 0.0.1~42
X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=f6c65520e560a354899d780cf311674a3e00f009;p=dead%2Fhtsn-import.git

Add docs for TSN.XML.Weather.
---

diff --git a/src/TSN/XML/Weather.hs b/src/TSN/XML/Weather.hs
index 092cc7e..3773b31 100644
--- a/src/TSN/XML/Weather.hs
+++ b/src/TSN/XML/Weather.hs
@@ -55,30 +55,54 @@ import TSN.XmlImport ( XmlImport(..) )
 import Xml ( FromXml(..), pickle_unpickle, unpickleable )
 
 
+
+-- | Database/XML representation of a weather forecast listing.
+--
 data WeatherForecastListing =
   WeatherForecastListing {
     db_teams :: String,
     db_weather :: String }
   deriving (Eq, Show)
 
+-- | This is needed to define the XmlImport instance for
+-- 'WeatherForecastListing'; it basically says that the DB
+-- representation is the same as the XML representation.
+--
 instance FromXml WeatherForecastListing where
   type Db WeatherForecastListing = WeatherForecastListing
   from_xml = id
 
+-- | Allows us to call 'insert_xml' on the XML representation of
+--   WeatherForecastListing.
+--
 instance XmlImport WeatherForecastListing
 
 
+-- | XML representation of a league, as they appear in the weather
+--   documents. There is no associated database representation because
+--   the league element really adds no information besides its own
+--   (usually empty) name. Since there's exactly one league per
+--   forecast, we just store the league_name in the database
+--   representation of a forecast.
+--
 data WeatherLeague =
   WeatherLeague {
     league_name     :: Maybe String,
     listings :: [WeatherForecastListing] }
   deriving (Eq, Show)
 
+
+-- | Database representation of a weather forecast.
+--
 data WeatherForecast =
   WeatherForecast {
     db_game_date :: UTCTime,
     db_league_name :: Maybe String }
 
+-- | XML representation of a weather forecast. It would have been
+--   cleaner to omit the 'WeatherLeague' middleman, but having it
+--   simplifies parsing.
+--
 data WeatherForecastXml =
   WeatherForecastXml {
     xml_game_date :: UTCTime,
@@ -87,19 +111,34 @@ data WeatherForecastXml =
 
 
 instance FromXml WeatherForecastXml where
+  -- | The database representation of a 'WeatherForecastXml' is a
+  --   'WeatherForecast'.
+  --
   type Db WeatherForecastXml = WeatherForecast
+
+  -- | To convert a 'WeatherForecastXml' into a 'WeatherForecast', we
+  --   replace the 'WeatherLeague' with its name.
+  --
   from_xml WeatherForecastXml{..} =
     WeatherForecast { db_game_date   = xml_game_date,
                       db_league_name = (league_name xml_league) }
 
+-- | This allows us to call 'insert_xml' on an 'WeatherForecastXml'
+--   without first converting it to the database representation.
+--
 instance XmlImport WeatherForecastXml
 
 
+-- | The database representation of a weather message.
+--
 data Weather =
   Weather {
     db_sport :: String,
     db_title :: String }
 
+
+-- | The XML representation of a weather message.
+--
 data Message =
   Message {
     xml_xml_file_id :: Int,
@@ -111,21 +150,37 @@ data Message =
     xml_time_stamp :: String }
   deriving (Eq, Show)
 
+
 instance FromXml Message where
+  -- | The database representation of 'Message' is 'Weather'.
+  --
   type Db Message = Weather
+
+  -- | To get a 'Weather' from a 'Message', we drop a bunch of
+  --   unwanted fields.
+  --
   from_xml Message{..} =
     Weather {
       db_sport = xml_sport,
       db_title = xml_title }
 
+-- | This allows us to call 'insert_xml' on a 'Message' without first
+--   converting it to the database representation.
+--
 instance XmlImport Message
 
 
+-- | A mapping between 'Weather' objects and their children
+--   'WeatherForecast's.
+--
 data Weather_WeatherForecast =
   Weather_WeatherForecast
     (DefaultKey Weather)
     (DefaultKey WeatherForecast)
 
+-- | A mapping between 'WeatherForecast' objects and their children
+--   'WeatherForecastListing's.
+--
 data WeatherForecast_WeatherForecastListing =
   WeatherForecast_WeatherForecastListing
     (DefaultKey WeatherForecast)
@@ -175,18 +230,30 @@ instance DbImport Message where
       migrate (undefined :: WeatherForecast_WeatherForecastListing)
 
   dbimport m = do
+    -- The weather database schema has a nice linear structure. First
+    -- we insert the top-level weather record.
     weather_id <- insert_xml m
 
+    -- Next insert all of the forecasts, one at a time.
     forM_ (xml_forecasts m) $ \forecast -> do
       forecast_id <- insert_xml forecast
+
+      -- Map this forecast to its parent weather record.
       insert_ (Weather_WeatherForecast weather_id forecast_id)
+
+      -- Insert all of this forecast's listings.
       forM_ (listings $ xml_league forecast) $ \listing -> do
         listing_id <- insert_xml listing
+
+        -- Map this listing to its parent forecast.
         insert_ $ WeatherForecast_WeatherForecastListing forecast_id listing_id
 
     return ImportSucceeded
 
 
+
+-- | Pickler to convert a 'WeatherForecastListing' to/from XML.
+--
 pickle_listing :: PU WeatherForecastListing
 pickle_listing =
   xpElem "listing" $
@@ -198,6 +265,9 @@ pickle_listing =
     from_pair = uncurry WeatherForecastListing
     to_pair WeatherForecastListing{..} = (db_teams, db_weather)
 
+
+-- | Pickler to convert a 'WeatherLeague' to/from XML.
+--
 pickle_league :: PU WeatherLeague
 pickle_league =
   xpElem "league" $
@@ -209,6 +279,9 @@ pickle_league =
     from_pair = uncurry WeatherLeague
     to_pair WeatherLeague{..} = (league_name, listings)
 
+
+-- | Pickler to convert a 'WeatherForecastXml' to/from XML.
+--
 pickle_forecast :: PU WeatherForecastXml
 pickle_forecast =
   xpElem "forecast" $
@@ -221,6 +294,10 @@ pickle_forecast =
     to_pair WeatherForecastXml{..} = (xml_game_date,
                                       xml_league)
 
+
+
+-- | Pickler to convert a 'Message' to/from XML.
+--
 pickle_message :: PU Message
 pickle_message =
   xpElem "message" $