From: Tim Vaughan <plugd@thelambdalab.xyz>
Date: Mon, 1 Jun 2020 17:00:10 +0000 (+0200)
Subject: Fixed bug in directory update.
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=microbotany.git;a=commitdiff_plain;h=024ca5547c4fb058de8392f84dfb474547124fd8;hp=9bb088cdb18f58aa9f4c1f14d2c4709d6ba5701b

Fixed bug in directory update.
---

diff --git a/directory.gmi b/directory.gmi
index fe7b2f8..77c87cc 100755
--- a/directory.gmi
+++ b/directory.gmi
@@ -26,7 +26,7 @@
             (lambda (garden-file)
               (let ((g (with-input-from-file garden-file read)))
                 (update-garden! g)
-                (with-output-to-file garden-file (lambda () write g))
+                (with-output-to-file garden-file (lambda () (write g)))
                 (let ((fields (list (garden-prop 'user g)
                                     (seconds->string (garden-prop 'created g))
                                     (garden-stage g))))
diff --git a/register.scm b/register.scm
index 71174c2..5aa2e91 100755
--- a/register.scm
+++ b/register.scm
@@ -9,7 +9,7 @@
         (serve-query "User name")
         (let* ((username (symbol->string (caar query)))
                (hash (string->sha1sum (conc username
-                                            (number->string (pseudo-random-integer 10000))))))
+                                            (number->string (pseudo-random-integer 1000000))))))
           (with-output-to-file (conc "accounts/" hash)
             (lambda ()
               (write (make-garden username))))