iens

commit 1f179308906ed36bcd0d09cc727bd173f2488dd0
parent 5675d2b30a3bdbe0278a4431c345c65822c1e41d
Author: Natasha Kerensikova <natgh@instinctive.eu>
Date:   Sat, 22 Aug 2026 17:39:09 +0000

Response header are dumped on get-gruiks HTTP error
Diffstat:
M
src/get-gruiks.scm
 | 
4
++++

1 file changed, 4 insertions(+), 0 deletions(-)
diff --git a/src/get-gruiks.scm b/src/get-gruiks.scm
@@ -217,6 +217,10 @@
                        SET lastseen=CAST(strftime('%s', 'now') as INT)
                        WHERE section=?;")
               name)))
+    (exn (client-error)
+      (write-line (conc "Error while checking " name))
+      (write-line (conc "  Headers: " (response-headers ((condition-property-accessor 'client-error 'response) exn))))
+      (print-error-message exn))
     (exn (user-interrupt) (signal exn))
     (exn () (write-line (conc "Error while checking " name))
             (print-error-message exn))))