X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Flwn-epub.git;a=blobdiff_plain;f=src%2FMain.hs;h=981a70531d717c1c7bef8f3fa874d26e943140eb;hp=5ce40269bd950a382201501f2101ed7ba7505ccf;hb=4220827f62d772d7edcbdcc1c2f13d6c2eb5f534;hpb=f3321e2ce7d7645ad562dc8f6620bfd561edc75d

diff --git a/src/Main.hs b/src/Main.hs
index 5ce4026..981a705 100644
--- 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))
-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