From: Michael Orlitzky <michael@orlitzky.com>
Date: Sat, 14 Jul 2012 02:46:01 +0000 (-0400)
Subject: If we don't have the contents of a particular full story, drop its paragraph.
X-Git-Tag: v0.0.1~11
X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=da4d3ce666bd8fc7a0011ecf495714bb55f0127d;p=dead%2Flwn-epub.git

If we don't have the contents of a particular full story, drop its paragraph.
---

diff --git a/src/LWN/Page.hs b/src/LWN/Page.hs
index ccc2590..30c54b5 100644
--- a/src/LWN/Page.hs
+++ b/src/LWN/Page.hs
@@ -34,6 +34,7 @@ import Text.XML.HXT.Core (
   getChildren,
   getText,
   hasName,
+  none,
   processAttrl,
   processTopDown,
   this,
@@ -128,8 +129,8 @@ insert_full_stories story_map =
     lookup_func :: (ArrowXml a) => URL -> a XmlTree XmlTree
     lookup_func href =
       case Map.lookup href story_map of
-        -- Leave it alone if we don't have the full story.
-        Nothing -> this
+        -- Drop the paragraph if we don't have the contents.
+        Nothing -> none
         Just v -> to_xml v
 
     article_xml :: (ArrowXml a) => a XmlTree XmlTree