+-- | Convert an 'EarlyLineDate' into an 'EarlyLineGame'. Each date has
+-- exactly one game, and the fields that belong to the date should
+-- really be in the game anyway. So the database representation of a
+-- game has the combined fields of the XML date/game.
+--
+-- This function gets the game out of a date, and then sticks the
+-- date value and note inside the game. It also adds the foreign key
+-- reference to the game's parent message, and returns the result.
+--
+date_to_game :: (DefaultKey EarlyLine) -> EarlyLineDate -> EarlyLineGame