From 5ac7dd7f301ba633b38d7bf2361044d25204bb6e Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Thu, 12 Jul 2012 16:31:48 -0400 Subject: [PATCH] Remove a debug putStrLn. --- src/LWN/Page.hs | 2 -- 1 file changed, 2 deletions(-) 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 -- 2.44.2