diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-28 23:38:46 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-06 00:46:26 +0100 |
| commit | 523df154032a720d1c0cda298e02a45a01b74822 (patch) | |
| tree | 75c513e5845619aff8827ae44faffc788fa7ad38 /module/vcomponent/validate.scm | |
| parent | Add tests for '(hnh test util)'. (diff) | |
| download | calp-523df154032a720d1c0cda298e02a45a01b74822.tar.gz calp-523df154032a720d1c0cda298e02a45a01b74822.tar.xz | |
Move 'validate-event' into only module using it.
Diffstat (limited to '')
| -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))) - ) |