print preciser error messages when retrieving failed

Signed-off-by: Sebastian Schüpbach <sebastian.schuepbach@unibas.ch>

src/main/scala/ch/memobase/App.scala

@@ -65,16 +65,16 @@ object App extends scala.App with Logging with RecordUtils {
         processed <- recordProcessor.process(record)
       } yield (record, processed) match {
         case (rec, ProcessSuccess(id, msg)) =>
-          logger.debug(msg)
+          logger.debug(s"$id: $msg")
           reporter.send(ReportingObject(id, ProcessingSuccess, msg, getInstitutionAndRecordSet(rec.value)))
         case (rec, ProcessIgnore(id, msg)) =>
-          logger.info(msg)
+          logger.info(s"$id: $msg")
           reporter.send(ReportingObject(id, ProcessingIgnore, msg, getInstitutionAndRecordSet(rec.value)))
         case (rec, ProcessWarning(id, msg)) =>
-          logger.warn(msg)
+          logger.warn(s"$id: $msg")
           reporter.send(ReportingObject(id, ProcessingWarning, msg, getInstitutionAndRecordSet(rec.value)))
         case (rec, ProcessFatal(id, msg, ex)) =>
-          logger.error(msg)
+          logger.error(s"$id: $msg: ${ex.getMessage}")
           logger.debug(ex.getStackTrace.mkString("\n"))
           reporter.send(ReportingObject(id, ProcessingFatal, msg, getInstitutionAndRecordSet(rec.value)))
       }

src/main/scala/ch/memobase/RecordProcessor.scala

@@ -68,7 +68,7 @@ class RecordProcessor(fileHandler: DisseminationCopyHandler,
           binaryResource.mimeType,
           binaryResource.instantiationType,
           data)
-      case Failure(ex) => List(ProcessFatal(recordKey, "Failed to retrieve binary from Fedora", ex))
+      case Failure(ex) => List(ProcessFatal(recordKey, s"Failed to retrieve binary from Fedora on ${binaryResource.filePath}", ex))
     }
   }