From aef7d93cb4d31db6f23477b71e26c0b08e25749c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Fri, 4 Mar 2022 01:58:11 +0100
Subject: Add missing (ice-9 format) imports.

---
 module/calp/entry-points/import.scm       | 1 +
 module/calp/entry-points/server.scm       | 1 +
 module/calp/html/vcomponent.scm           | 1 +
 module/calp/html/view/calendar.scm        | 2 ++
 module/calp/html/view/calendar/shared.scm | 1 +
 module/calp/html/view/calendar/week.scm   | 1 +
 module/calp/server/routes.scm             | 1 +
 module/calp/util/time.scm                 | 1 +
 8 files changed, 9 insertions(+)

(limited to 'module/calp')

diff --git a/module/calp/entry-points/import.scm b/module/calp/entry-points/import.scm
index 441ff527..213a720d 100644
--- a/module/calp/entry-points/import.scm
+++ b/module/calp/entry-points/import.scm
@@ -4,6 +4,7 @@
   :use-module (hnh util options)
   :use-module (ice-9 getopt-long)
   :use-module (ice-9 rdelim)
+  :use-module (ice-9 format)
   :use-module (srfi srfi-1)
   ;; TODO FIX
   ;; :use-module (output vdir)
diff --git a/module/calp/entry-points/server.scm b/module/calp/entry-points/server.scm
index c9ff339a..4c5637f3 100644
--- a/module/calp/entry-points/server.scm
+++ b/module/calp/entry-points/server.scm
@@ -6,6 +6,7 @@
   :use-module (srfi srfi-1)
 
   :use-module (ice-9 getopt-long)
+  :use-module (ice-9 format)
 
   :use-module ((calp server server) :select (start-server))
 
diff --git a/module/calp/html/vcomponent.scm b/module/calp/html/vcomponent.scm
index 16f418c5..28024af2 100644
--- a/module/calp/html/vcomponent.scm
+++ b/module/calp/html/vcomponent.scm
@@ -24,6 +24,7 @@
                                       ))
   :use-module ((calp util config) :select (get-config))
   :use-module ((base64) :select (base64encode))
+  :use-module (ice-9 format)
   )
 
 ;; used by search view
diff --git a/module/calp/html/view/calendar.scm b/module/calp/html/view/calendar.scm
index ecdce291..76cdf736 100644
--- a/module/calp/html/view/calendar.scm
+++ b/module/calp/html/view/calendar.scm
@@ -27,6 +27,8 @@
   :use-module ((vcomponent util group)
                :select (group-stream get-groups-between))
   :use-module ((base64) :select (base64encode))
+
+  :use-module (ice-9 format)
   )
 
 
diff --git a/module/calp/html/view/calendar/shared.scm b/module/calp/html/view/calendar/shared.scm
index 11f1a70c..b00888a9 100644
--- a/module/calp/html/view/calendar/shared.scm
+++ b/module/calp/html/view/calendar/shared.scm
@@ -16,6 +16,7 @@
                :select (btn tabset))
   :use-module ((calp html vcomponent)
                :select (make-block) )
+  :use-module (ice-9 format)
   )
 
 
diff --git a/module/calp/html/view/calendar/week.scm b/module/calp/html/view/calendar/week.scm
index 5b12a351..38e7501b 100644
--- a/module/calp/html/view/calendar/week.scm
+++ b/module/calp/html/view/calendar/week.scm
@@ -19,6 +19,7 @@
   ;;              :select ())
   :use-module ((vcomponent util group)
                :select (group-stream get-groups-between))
+  :use-module (ice-9 format)
   )
 
 
diff --git a/module/calp/server/routes.scm b/module/calp/server/routes.scm
index 87af983a..3fa9bc4d 100644
--- a/module/calp/server/routes.scm
+++ b/module/calp/server/routes.scm
@@ -9,6 +9,7 @@
   :use-module ((ice-9 rdelim) :select (read-string))
   :use-module ((ice-9 ftw) :select (scandir))
   :use-module (ice-9 regex) #| regex here due to bad macros |#
+  :use-module (ice-9 format)
 
   :use-module ((web response) :select (build-response))
   :use-module ((web uri) :select (build-relative-ref))
diff --git a/module/calp/util/time.scm b/module/calp/util/time.scm
index 0a624d30..f3789eeb 100644
--- a/module/calp/util/time.scm
+++ b/module/calp/util/time.scm
@@ -1,5 +1,6 @@
 (define-module (calp util time)
   :use-module (ice-9 match)
+  :use-module (ice-9 format)
   :export (report-time! profile!))
 
 
-- 
cgit v1.2.3