From 4773f0ca11e4a1369f168a99f6bd1d09aa6f6087 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Thu, 13 Feb 2020 23:58:02 +0100
Subject: Add missing hour to time->decimal-hour.

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

(limited to 'module/output')

diff --git a/module/output/html.scm b/module/output/html.scm
index cf70b583..46abfdb6 100644
--- a/module/output/html.scm
+++ b/module/output/html.scm
@@ -62,7 +62,8 @@
 ;; For that see @var{date->decimal-hour}.
 ;; NOTE Above comment probably deprecated
 (define (time->decimal-hour time)
-  (exact->inexact (+ (/ (minute time) 60)
+  (exact->inexact (+ (hour time)
+                     (/ (minute time) 60)
                      (/ (second time) 3600))))
 
 (define (html-attr str)
-- 
cgit v1.2.3