Whitespace cleanup.
[dead/lwn-epub.git] / src / Main.hs
index 5ce40269bd950a382201501f2101ed7ba7505ccf..981a70531d717c1c7bef8f3fa874d26e943140eb 100644 (file)
@@ -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))
-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