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

diff --git a/src/Main.hs b/src/Main.hs
index 90f5f91d9682b5366bbed33d2b00b334b567f0dd..fc6d14b8a116aef185d0c7d362b2204c912ff135 100644 (file)
--- 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