From: Michael Orlitzky <michael@orlitzky.com>
Date: Sat, 5 Jul 2014 17:29:45 +0000 (-0400)
Subject: Report the path along with the error message when an import fails.
X-Git-Tag: 0.0.6~31
X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=3768238ca528db394e4777ac1e19b2091979e1c8;p=dead%2Fhtsn-import.git

Report the path along with the error message when an import fails.
---

diff --git a/src/Main.hs b/src/Main.hs
index 90f5f91..fc6d14b 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -96,7 +96,7 @@ import_file cfg path = do
       report_error $ "Unable to determine DTD for file " ++ path ++ "."
       return False
     (ImportFailed errmsg:_) -> do
-      report_error errmsg
+      report_error $ errmsg ++ " (" ++ path ++ ")"
       return False
     (ImportSkipped infomsg:_) -> do
       -- We processed the message but didn't import anything. Return