X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Flwn-epub.git;a=blobdiff_plain;f=src%2FLWN%2FPage.hs;h=49faa0bb4d6d1b0c77c0b4c6eb8d00e1a9261c50;hp=c61bf6a5c028dd55e41c71a75748426790dd9885;hb=5ac7dd7f301ba633b38d7bf2361044d25204bb6e;hpb=22c3f63a91361fddfe8315d7e7d5daef42700957 diff --git a/src/LWN/Page.hs b/src/LWN/Page.hs index c61bf6a..49faa0b 100644 --- a/src/LWN/Page.hs +++ b/src/LWN/Page.hs @@ -261,8 +261,6 @@ ap_parse_articles xml = do parsed_byline <- parse_byline xml parsed_body <- ap_parse_body xml - putStrLn $ fromJust parsed_headline - if (isNothing parsed_headline) || (isNothing parsed_body) then return [] else do