From: Tim Vaughan 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?a=commitdiff_plain;h=024ca5547c4fb058de8392f84dfb474547124fd8;p=microbotany.git 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))))