- -- Insert a record into schedule_changes_listings__teams
- -- mapping the home/away teams to this game. Use the full
- -- record syntax because the types would let us mix up the
- -- home/away teams.
- insert_ ScheduleChangesListing_Team {
- sclt_schedule_changes_listings_id = listing_id,
- sclt_away_team_id = away_team_id,
- sclt_home_team_id = home_team_id }
+ -- Finish constructing the xml -> db function.
+ let listing_xml_to_db' = listing_xml_to_db away_team_id home_team_id
+ let db_listing = listing_xml_to_db' listing
+
+ insert_ db_listing