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