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/parameters.scm | |
| parent | Whitespace fixup. (diff) | |
| download | calp-cb049bbe86ec3ef1acc8b632d6bec8d2ebb8c0a1.tar.gz calp-cb049bbe86ec3ef1acc8b632d6bec8d2ebb8c0a1.tar.xz | |
Improve error on bad param value.
Diffstat (limited to 'module/parameters.scm')
| -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 |