diff options
Diffstat (limited to 'module/calp/html/view/calendar/shared.scm')
| -rw-r--r-- | module/calp/html/view/calendar/shared.scm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/module/calp/html/view/calendar/shared.scm b/module/calp/html/view/calendar/shared.scm index fb5eace5..badea7b9 100644 --- a/module/calp/html/view/calendar/shared.scm +++ b/module/calp/html/view/calendar/shared.scm @@ -1,5 +1,6 @@ (define-module (calp html view calendar shared) :use-module (calp util) + :use-module ((calp util exceptions) :select (assert)) :use-module (srfi srfi-1) :use-module (vcomponent) :use-module ((vcomponent datetime) @@ -32,6 +33,8 @@ ;; only find events which also overlaps the ;; smaller event. + (assert event-length-key) + ;; @var{x} is how for left in the container we are. (let inner ((x 0) (tree (make-tree overlapping? |