From d7eb43dabd083ff2e12e9cfbf9bc2b6fcaa55e0b Mon Sep 17 00:00:00 2001
From: Michael Orlitzky <michael@orlitzky.com>
Date: Thu, 12 Jul 2012 20:29:44 -0400
Subject: [PATCH 1/1] Don't download full stories if we aren't going to use
 them.

---
 src/LWN/Page.hs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/LWN/Page.hs b/src/LWN/Page.hs
index d4aeb30..3dccf46 100644
--- a/src/LWN/Page.hs
+++ b/src/LWN/Page.hs
@@ -134,7 +134,7 @@ insert_full_stories story_map =
     article_xml :: (ArrowXml a) => a XmlTree XmlTree
     article_xml =
       lookup_func
-      $<
+      $< -- From HXT's Control.Arrow.ArrowList
       (this /> full_story_link >>> getAttrValue "href")
                    
 replace_remote_img_srcs :: (ArrowXml a) => ImageMap -> a XmlTree XmlTree
@@ -192,11 +192,11 @@ download_full_stories cfg xml = do
 
 parse :: Cfg -> IOSArrow XmlTree XmlTree -> IO (Maybe Page)
 parse cfg xml = do
-  story_map <- download_full_stories cfg xml
-  let fs_xml = if (full_stories cfg) then
-                 xml >>> insert_full_stories story_map
-               else
-                 xml
+  fs_xml <- if (full_stories cfg) then do
+             story_map <- download_full_stories cfg xml
+             return $ xml >>> insert_full_stories story_map
+           else do
+             return xml
 
   let clean_xml = fs_xml >>> preprocess
   image_map <- download_images clean_xml
-- 
2.43.2