X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Flwn-epub.git;a=blobdiff_plain;f=src%2FLWN%2FXHTML.hs;h=c54bada32538c97e5e0f6d9c5fe579a37e2a4f77;hp=5d3bbd17327a8eaf20bec29152ed30de9aa9c7df;hb=ce53d0d1ff76cc45f1f66504976a0549999677c0;hpb=68bab2c1cc272e99c94447afb93678e2b4d4bc72

diff --git a/src/LWN/XHTML.hs b/src/LWN/XHTML.hs
index 5d3bbd1..c54bada 100644
--- a/src/LWN/XHTML.hs
+++ b/src/LWN/XHTML.hs
@@ -9,6 +9,7 @@ module LWN.XHTML (
   parse_lwn,
   preprocess,
   remove_byline,
+  remove_full_story_paragraphs,
   remove_title,
   to_xhtml,
   to_xml,
@@ -90,6 +91,11 @@ is_link =
   isElem >>> hasName "a"
 
 
+remove_full_story_paragraphs  :: (ArrowXml a) => a XmlTree XmlTree
+remove_full_story_paragraphs =
+  processTopDown $ none `when` full_story_paragraph
+
+
 remove_comment_links  :: (ArrowXml a) => a XmlTree XmlTree
 remove_comment_links =
   processTopDown $ kill_comments `when` is_link