diff options
Diffstat (limited to 'module/vcomponent')
-rw-r--r-- | module/vcomponent/formats/vdir/save-delete.scm | 3 | ||||
-rw-r--r-- | module/vcomponent/util/instance/methods.scm | 3 |
2 files changed, 4 insertions, 2 deletions
diff --git a/module/vcomponent/formats/vdir/save-delete.scm b/module/vcomponent/formats/vdir/save-delete.scm index 6068e34c..7de9379b 100644 --- a/module/vcomponent/formats/vdir/save-delete.scm +++ b/module/vcomponent/formats/vdir/save-delete.scm @@ -11,6 +11,7 @@ (define-module (vcomponent formats vdir save-delete) :use-module (hnh util) + :use-module (hnh util uuid) :use-module ((hnh util path) :select (path-append)) :use-module ((hnh util exceptions) :select (assert)) :use-module (vcomponent formats ical output) @@ -24,7 +25,7 @@ (assert (eq? 'vdir (prop calendar '-X-HNH-SOURCETYPE))) - (let* ((uid (or (prop event 'UID) (uuidgen)))) + (let* ((uid (or (prop event 'UID) (uuid)))) (set! (prop event 'UID) uid ;; TODO use existing filename if present? (prop event '-X-HNH-FILENAME) (path-append diff --git a/module/vcomponent/util/instance/methods.scm b/module/vcomponent/util/instance/methods.scm index 120ab2fe..926f9bb8 100644 --- a/module/vcomponent/util/instance/methods.scm +++ b/module/vcomponent/util/instance/methods.scm @@ -1,5 +1,6 @@ (define-module (vcomponent util instance methods) :use-module (hnh util) + :use-module (hnh util uuid) :use-module (srfi srfi-1) :use-module (srfi srfi-41) :use-module (srfi srfi-41 util) @@ -93,7 +94,7 @@ (add-child! calendar event) (unless (prop event 'UID) - (set! (prop event 'UID) (uuidgen))) + (set! (prop event 'UID) (uuid))) |