From 3b8565c33b58196ffe2e3dd8f23a73de57a268f2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 9 Mar 2020 23:47:05 +0100 Subject: Sprinkled in some time prints. --- module/vcomponent/parse.scm | 3 +++ 1 file changed, 3 insertions(+) (limited to 'module/vcomponent/parse.scm') diff --git a/module/vcomponent/parse.scm b/module/vcomponent/parse.scm index 32b368c7..ef31cbd0 100644 --- a/module/vcomponent/parse.scm +++ b/module/vcomponent/parse.scm @@ -11,6 +11,7 @@ :use-module ((ice-9 ftw) :select (scandir ftw)) :use-module (util) + :use-module (util time) :use-module (util strbuf) :use-module (vcomponent base) :use-module (vcomponent datetime) @@ -92,6 +93,7 @@ ;; Reads a vcomponent from the given port. (define-public (parse-calendar port) + ;; (report-time! "Parsing ~a" port) (with-input-from-port port (lambda () (let ((component (make-vcomponent)) @@ -359,6 +361,7 @@ row ~a column ~a ctx = ~a (set! (attr comp 'X-HNH-SOURCETYPE) "file") comp) ] [(directory) + (report-time! "Parsing ~a" path) (let ((comp (parse-vdir path))) (set! (attr comp 'X-HNH-SOURCETYPE) "vdir") comp)] -- cgit v1.2.3