X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Flwn-epub.git;a=blobdiff_plain;f=src%2FLWN%2FPage.hs;h=30c54b550a530777eb9ccfd818b16785c46cc0ef;hp=ccc2590d64b0dddf94dcf85a62a650168549763d;hb=da4d3ce666bd8fc7a0011ecf495714bb55f0127d;hpb=ce53d0d1ff76cc45f1f66504976a0549999677c0

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