Report "no DTD" as info instead of error.

diff --git a/htsn-import.cabal b/htsn-import.cabal
index 445d95c1196d8797d445fbf5429c451acd00603f..d470346fae7fbccc3111d18b06129772852d6010 100644 (file)
--- 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 <michael@orlitzky.com>

diff --git a/src/Main.hs b/src/Main.hs
index 907c3517b8a28c034605f9608595bc8ef17c4358..a2277057940edabe70df7517f250ed1f7d99649e 100644 (file)
--- 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 ++ ")"