-- | 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