Add guix-data-service-error->sexp

1 files changed, 33 insertions, 0 deletions

diff --git a/guix-qa-frontpage/guix-data-service.scm b/guix-qa-frontpage/guix-data-service.scm
index 77a4960..acd4ad7 100644
--- a/guix-qa-frontpage/guix-data-service.scm
+++ b/guix-qa-frontpage/guix-data-service.scm
@@ -17,6 +17,8 @@
             guix-data-service-error-response-body
             guix-data-service-error-response-code
 
+            guix-data-service-error->sexp
+
             revision-derivation-changes-url
             revision-derivation-changes
 
@@ -85,6 +87,37 @@
               (and (guix-data-service-error? exn)
                    (< (guix-data-service-error-response-code exn)
                       500)))))
+(define (guix-data-service-error->sexp exn)
+  `((exception . guix-data-service-invalid-parameters)
+    (invalid_query_parameters
+     .
+     ,(filter-map
+       (match-lambda
+         ((param . val)
+          (and=>
+           (assoc-ref val "invalid_value")
+           (lambda (value)
+             (let ((message
+                    (assoc-ref val "message")))
+               (cons
+                param
+                `((value . ,value)
+                  (error
+                   ;; Convert the HTML error messages
+                   ;; to something easier to handle
+                   . ,(cond
+                       ((string-contains message
+                                         "failed to process revision")
+                        'failed-to-process-revision)
+                       ((string-contains message
+                                         "yet to process revision")
+                        'yet-to-process-revision)
+                       (else
+                        'unknown))))))))))
+       (assoc-ref
+        (guix-data-service-error-response-body exn)
+        "query_parameters")))))
+
 
 (define* (revision-derivation-changes-url base-and-target-refs #:key systems)
   (string-append