From cb049bbe86ec3ef1acc8b632d6bec8d2ebb8c0a1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Mon, 30 Dec 2019 02:08:47 +0100
Subject: Improve error on bad param value.

---
 module/parameters.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/module/parameters.scm b/module/parameters.scm
index 45b8862b..cc91c18b 100644
--- a/module/parameters.scm
+++ b/module/parameters.scm
@@ -12,7 +12,8 @@
 (define (ensure pred?)
   (lambda (v)
     (unless (pred? v)
-      (error "Bad value to config"))
+      (error (format #f "Value [~s] doesn't satisfy condition ~a"
+               v (or (procedure-name pred?) ""))))
     v))
 
 (define-public calendar-files
-- 
cgit v1.2.3