From 7e1865e656ebbbba9566c7ace61176635fdeabe5 Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Sun, 6 Jul 2014 16:02:04 -0400 Subject: [PATCH] Actuall import the detailed weather items. --- src/TSN/XML/Weather.hs | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/src/TSN/XML/Weather.hs b/src/TSN/XML/Weather.hs index 0866f6f..26935cf 100644 --- a/src/TSN/XML/Weather.hs +++ b/src/TSN/XML/Weather.hs @@ -484,6 +484,14 @@ instance DbImport Message where -- And finally, insert those DB listings. mapM_ insert_ db_listings + -- Now we do the detailed weather items. + case (xml_detailed_weather m) of + Nothing -> return () + Just dw -> do + let detailed_listings = xml_detailed_listings dw + let items = concatMap xml_items detailed_listings + mapM_ (insert_xml_fk_ weather_id) items + return ImportSucceeded -- 2.43.2