From 024ca5547c4fb058de8392f84dfb474547124fd8 Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Mon, 1 Jun 2020 19:00:10 +0200 Subject: [PATCH] Fixed bug in directory update. --- directory.gmi | 2 +- register.scm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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)))) -- 2.20.1