From 151c477392e85b1bd2b0ef8572f580ce0c040b0a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 16 Oct 2023 15:18:16 +0200 Subject: Update some data formats to properly use table type. --- module/vcomponent/formats/common/types.scm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'module/vcomponent/formats/common/types.scm') diff --git a/module/vcomponent/formats/common/types.scm b/module/vcomponent/formats/common/types.scm index 68679fbc..e53bbf88 100644 --- a/module/vcomponent/formats/common/types.scm +++ b/module/vcomponent/formats/common/types.scm @@ -1,9 +1,10 @@ (define-module (vcomponent formats common types) :use-module (hnh util) :use-module (hnh util exceptions) + :use-module (hnh util table) + :use-module ((web uri) :select (string->uri)) :use-module (base64) :use-module (datetime) - :use-module (srfi srfi-9 gnu) :use-module (srfi srfi-71) :use-module (datetime timespec) :use-module (calp translation) @@ -12,7 +13,7 @@ ;; BINARY (define (parse-binary props value) ;; p 30 - (unless (string=? "BASE64" (hashq-ref props 'ENCODING)) + (unless (string=? "BASE64" (table-get props 'ENCODING)) (warning (G_ "Binary field not marked ENCODING=BASE64"))) ;; For icalendar no extra whitespace is allowed in a @@ -38,8 +39,9 @@ (define parsed (parse-ics-datetime ;; TODO props is no longer a (built-in) hash table - value (hashq-ref props 'TZID #f))) - (hashq-set! props '-X-HNH-ORIGINAL parsed) + value (table-get props 'TZID))) + ;; TODO update table + ;; (hashq-set! props '-X-HNH-ORIGINAL parsed) (get-datetime parsed)) ;; DURATION -- cgit v1.2.3