X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=microbotany.git;a=blobdiff_plain;f=directory.gmi;fp=directory.gmi;h=fe7b2f8decf1d3a880f5ee6396a8c30390b54a53;hp=9c8403500fa567abe529c0ccf2e6e44aaa59ee22;hb=9bb088cdb18f58aa9f4c1f14d2c4709d6ba5701b;hpb=8c6e2d8351ab1e4485ed41b121a0f02ef08eb415

diff --git a/directory.gmi b/directory.gmi
index 9c84035..fe7b2f8 100755
--- a/directory.gmi
+++ b/directory.gmi
@@ -24,11 +24,13 @@
            (print-rule total-width)
            (for-each
             (lambda (garden-file)
-              (let* ((g (with-input-from-file garden-file read))
-                     (fields (list (garden-prop 'user g)
-                                   (seconds->string (garden-prop 'created g))
-                                   (garden-stage g))))
-                (apply print (map pad-string fields colwidths)))) 
+              (let ((g (with-input-from-file garden-file read)))
+                (update-garden! 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))))
+                  (apply print (map pad-string fields colwidths)))))
             (glob "accounts/*"))
            (print-rule total-width))))
 ```