Remove a debug putStrLn.

diff --git a/src/LWN/Page.hs b/src/LWN/Page.hs
index c61bf6a5c028dd55e41c71a75748426790dd9885..49faa0bb4d6d1b0c77c0b4c6eb8d00e1a9261c50 100644 (file)
--- 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