Guard against errors when inserting log data

PostgreSQL seems to be unhappy with some data, I guess because it gets a bit
jumbled. Rather than failing the job, or getting stuck not inserting logs, try
and capture the error, log the details, and then keep going.

1 files changed, 24 insertions, 2 deletions

diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm
index 91183e5..6731abf 100644
--- a/guix-data-service/jobs/load-new-guix-revision.scm
+++ b/guix-data-service/jobs/load-new-guix-revision.scm
@@ -94,8 +94,30 @@
     (if (string-contains s "\n")
         (let ((output (string-append buffer s)))
           (set! buffer "") ; clear the buffer
-          (insert job-id output)
-          (display output output-port))
+          (catch #t
+            (lambda ()
+              (insert job-id output)
+              (display output output-port))
+            (lambda (key . args)
+              (display
+               (simple-format
+                #f
+                "
+error: ~A: ~A
+error: could not insert log part: '~A'\n\n"
+                key args output)
+               output-port)
+              (catch #t
+                (lambda ()
+                  (insert
+                   job-id
+                   (simple-format
+                    #f
+                    "
+guix-data-service: error: missing log line: ~A
+\n" key)))
+                (lambda ()
+                  #t)))))
         (set! buffer (string-append buffer s))))
 
   (exec-query