diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-09-18 14:40:35 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-09-18 14:40:35 +0200 |
| commit | 8ecdeab03f390703c89b45bbbcc08fa4d42c9735 (patch) | |
| tree | 765ed637fd389fe2516d85f2a14d49f4d441d7a0 | |
| parent | Add base of what gnome integration could look like. (diff) | |
| download | calp-8ecdeab03f390703c89b45bbbcc08fa4d42c9735.tar.gz calp-8ecdeab03f390703c89b45bbbcc08fa4d42c9735.tar.xz | |
Add an assert.
| -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? |