Whitespace cleanup.

[dead/lwn-epub.git] / src / Main.hs

diff --git a/src/Main.hs b/src/Main.hs
index 5ce40269bd950a382201501f2101ed7ba7505ccf..981a70531d717c1c7bef8f3fa874d26e943140eb 100644 (file)
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -29,7 +29,7 @@ import LWN.XHTML (parse_lwn)
 -- | Try to parse the given article using HXT. We try a few different
 --   methods; if none of them work, we return 'Nothing'.
 get_xml_from_article :: Cfg -> IO (Maybe (IOStateArrow s b XmlTree))
 -- | Try to parse the given article using HXT. We try a few different
 --   methods; if none of them work, we return 'Nothing'.
 get_xml_from_article :: Cfg -> IO (Maybe (IOStateArrow s b XmlTree))

-get_xml_from_article cfg = do  
+get_xml_from_article cfg = do

   my_article <- real_article_path (article cfg)
   is_file <- doesFileExist my_article
   case is_file of
   my_article <- real_article_path (article cfg)
   is_file <- doesFileExist my_article
   case is_file of