From: Michael Orlitzky Date: Tue, 10 Mar 2015 11:06:32 +0000 (-0400) Subject: Report "no DTD" as info instead of error. X-Git-Tag: 0.2.4^0 X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fhtsn-import.git;a=commitdiff_plain;h=3c1e37ee3ead276288ac167b6b8f75f4060ca1b2 Report "no DTD" as info instead of error. --- diff --git a/htsn-import.cabal b/htsn-import.cabal index 445d95c..d470346 100644 --- a/htsn-import.cabal +++ b/htsn-import.cabal @@ -1,5 +1,5 @@ name: htsn-import -version: 0.2.3 +version: 0.2.4 cabal-version: >= 1.8 author: Michael Orlitzky maintainer: Michael Orlitzky diff --git a/src/Main.hs b/src/Main.hs index 907c351..a227705 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -115,7 +115,7 @@ import_file cfg path = do -- caused by a document whose DTD is not present (i.e. is -- unsupported). So we return "success" to allow the XML file to -- be deleted. - report_error $ "No DTD for file " ++ path ++ "." + report_info $ "No DTD for file " ++ path ++ "." return True (ImportFailed errmsg:_) -> do report_error $ errmsg ++ " (" ++ path ++ ")"