From 2d5ed850edc5bc73c2ceed3086866c0f410a278b Mon Sep 17 00:00:00 2001
From: Tim Vaughan <plugd@thelambdalab.xyz>
Date: Fri, 29 May 2020 16:40:59 +0200
Subject: [PATCH] Removed superfluous imports.

---
 delete-confirm.scm | 5 +----
 delete.scm         | 5 +----
 garden.scm         | 4 +++-
 help.scm           | 5 +----
 plant-new.scm      | 3 +--
 register.scm       | 4 +---
 view.scm           | 5 +----
 water.scm          | 5 +----
 8 files changed, 10 insertions(+), 26 deletions(-)

diff --git a/delete-confirm.scm b/delete-confirm.scm
index 3924c35..8652d6b 100755
--- a/delete-confirm.scm
+++ b/delete-confirm.scm
@@ -1,10 +1,7 @@
 ;; Account deletion confirmation
 
 (lambda (uri)
-  (import (chicken file)
-          (chicken pathname)
-          (chicken string)
-          uri-common)
+  (import (chicken io))
   (let ((query (uri-query uri)))
     (if (null? query)
         (print "No account specified.")
diff --git a/delete.scm b/delete.scm
index b258a01..53050d1 100755
--- a/delete.scm
+++ b/delete.scm
@@ -1,10 +1,7 @@
 ;; Delete account
 
 (lambda (uri)
-  (import (chicken file)
-          (chicken pathname)
-          (chicken string)
-          uri-common)
+  (import (chicken io))
   (let ((query (uri-query uri)))
     (serve-document-header (ext->mime "gmi"))
     (if (null? query)
diff --git a/garden.scm b/garden.scm
index 1bd504b..ebcdf77 100644
--- a/garden.scm
+++ b/garden.scm
@@ -5,7 +5,9 @@
         (chicken io)
         (chicken string)
         (chicken format)
-        srfi-1)
+        (chicken file)
+        (chicken condition)
+        srfi-1 uri-common simple-sha1)
 
 (define rand-double pseudo-random-real)
 
diff --git a/help.scm b/help.scm
index a54a839..9388421 100755
--- a/help.scm
+++ b/help.scm
@@ -1,8 +1,5 @@
 (lambda (uri)
-  (import (chicken file)
-          (chicken pathname)
-          (chicken string)
-          uri-common)
+  (import (chicken io))
   (let ((query (uri-query uri)))
     (if (null? query)
         (print "No account specified.")
diff --git a/plant-new.scm b/plant-new.scm
index 812d52e..a0808d7 100755
--- a/plant-new.scm
+++ b/plant-new.scm
@@ -2,8 +2,7 @@
 ;;
 
 (lambda (uri)
-  (import (chicken file)
-          uri-common simple-sha1)
+  (import (chicken io))
   (for-each eval (with-input-from-file "garden.scm" read-list))
   (let ((query (uri-query uri)))
     (if (null? query)
diff --git a/register.scm b/register.scm
index 91ac133..71174c2 100755
--- a/register.scm
+++ b/register.scm
@@ -2,9 +2,7 @@
 ;;
 
 (lambda (uri)
-  (import (chicken file)
-          (chicken io)
-          uri-common simple-sha1)
+  (import (chicken io))
   (for-each eval (with-input-from-file "garden.scm" read-list))
   (let ((query (uri-query uri)))
     (if (null? query)
diff --git a/view.scm b/view.scm
index 7d3ab12..155b71f 100755
--- a/view.scm
+++ b/view.scm
@@ -2,10 +2,7 @@
 ;;
 
 (lambda (uri)
-  (import
-    (chicken condition)
-    (chicken file)
-    uri-common)
+  (import (chicken io))
   (for-each eval (with-input-from-file "garden.scm" read-list))
   (serve-document-header (ext->mime "gmi"))
   (let ((query (uri-query uri)))
diff --git a/water.scm b/water.scm
index d2df36c..e2d83ff 100755
--- a/water.scm
+++ b/water.scm
@@ -2,10 +2,7 @@
 ;;
 
 (lambda (uri)
-  (import
-    (chicken condition)
-    (chicken file)
-    uri-common)
+  (import (chicken io))
   (for-each eval (with-input-from-file "garden.scm" read-list))
   (let ((query (uri-query uri)))
     (if (null? query)
-- 
2.20.1