From cab4413d62d8228ba034b1610acf64e707a8338f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Thu, 14 May 2020 17:45:03 +0200
Subject: Add some TODO's.

---
 module/datetime.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'module/datetime.scm')

diff --git a/module/datetime.scm b/module/datetime.scm
index b2a3d38e..b8b515fc 100644
--- a/module/datetime.scm
+++ b/module/datetime.scm
@@ -686,13 +686,14 @@
               time: (parse-ics-time timestr)
               tz: tz)))
 
-
+;; TODO rewrite this
 (define-public (current-date)
   (let ((d ((@ (srfi srfi-19) current-date))))
     (date year:  ((@ (srfi srfi-19) date-year) d)
           month: ((@ (srfi srfi-19) date-month) d)
           day:   ((@ (srfi srfi-19) date-day) d))))
 
+;; TODO this returns UTC time, but without a TZ component
 (define-public (current-datetime)
   (unix-time->datetime ((@ (guile) current-time))))
 
-- 
cgit v1.2.3