diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-12-30 02:08:47 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-12-30 02:08:47 +0100 |
commit | cb049bbe86ec3ef1acc8b632d6bec8d2ebb8c0a1 (patch) | |
tree | 48f43c5ac3dee57819cbb74dbc47e39d8b0d38c0 /module | |
parent | Whitespace fixup. (diff) | |
download | calp-cb049bbe86ec3ef1acc8b632d6bec8d2ebb8c0a1.tar.gz calp-cb049bbe86ec3ef1acc8b632d6bec8d2ebb8c0a1.tar.xz |
Improve error on bad param value.
Diffstat (limited to '')
-rw-r--r-- | module/parameters.scm | 3 |
1 files changed, 2 insertions, 1 deletions
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 |