From b21bc56b6be9802fde364b1c7384962c30fd0840 Mon Sep 17 00:00:00 2001
From: Nathaniel Smith <nathanielksmith@gmail.com>
Date: Wed, 15 Oct 2014 01:18:32 -0400
Subject: [PATCH] fix bug

---
 scripts/userlist.hy | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scripts/userlist.hy b/scripts/userlist.hy
index f98147d..75705d9 100644
--- a/scripts/userlist.hy
+++ b/scripts/userlist.hy
@@ -13,7 +13,7 @@
 (def default-html (slurp "/etc/skel/public_html/index.html"))
 
 (defn dir->html [username]
-  (let [[default (= default-html (slurp (.format "/home/{}/public_html/index.html" dirname)))]]
+  (let [[default (= default-html (slurp (.format "/home/{}/public_html/index.html" username)))]]
     (.format "<li><a href=\"http://tilde.town/~{}\">{}</a> {}</li>"
              username username
              (if default