diff options
Diffstat (limited to 'module/vcomponent/validate.scm')
-rw-r--r-- | module/vcomponent/validate.scm | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/module/vcomponent/validate.scm b/module/vcomponent/validate.scm deleted file mode 100644 index 8881c95f..00000000 --- a/module/vcomponent/validate.scm +++ /dev/null @@ -1,16 +0,0 @@ -(define-module (vcomponent validate) - :use-module (vcomponent) - :use-module (datetime) - :use-module ((hnh util exceptions) - :select (warning)) - :use-module (calp translation) - :export (validate-event)) - -(define (validate-event component) - (unless (date/-time<= - (prop component 'DTSTART) - (prop component 'DTEND)) - (warning (G_ "end (~a) must be equal to or greater than start (~a)") - (prop component 'DTEND) - (prop component 'DTSTART))) - ) |