From ce3c07b554dfa71f17aae7c95650b809f221fbd3 Mon Sep 17 00:00:00 2001
From: Frederick Muriuki Muriithi
Date: Fri, 1 Nov 2024 11:51:20 -0500
Subject: Make error details into pairs.

---
 web/webserver.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'web')

diff --git a/web/webserver.scm b/web/webserver.scm
index c13397e..6f40614 100644
--- a/web/webserver.scm
+++ b/web/webserver.scm
@@ -214,8 +214,8 @@ otherwise search for set/group data"
          (lambda (key . args)
            (let ((msg (car args)))
              (build-json-response 400
-                                  `(("error" ,key)
-                                    ("msg" ,msg)))))))
+                                  `(("error" . ,key)
+                                    ("msg" . ,msg)))))))
 
 (define (controller request body)
   (match-lambda
-- 
cgit v1.2.3