From 3539d92a0260a2095a16bc61ada6a76e48120dac Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sat, 11 Apr 2020 11:27:44 -0700
Subject: expiry: bugfix: failing to delete unbanned clients.

---
 txrban.txr | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/txrban.txr b/txrban.txr
index 355bacf..27b5c10 100644
--- a/txrban.txr
+++ b/txrban.txr
@@ -83,9 +83,9 @@
    (defun do-expiry (now-time)
      (dohash (ip cli client-hash)
        (when (and cli.banned (<= (to cli.banned) now-time))
-         (unban cli)
-         (when (null cli.access-hist)
-           (del [client-hash ip])))))
+         (unban cli))
+       (when (null cli.access-hist)
+         (del [client-hash ip]))))
 
    (defun unban (cli)
      (unless *dry-run*
-- 
cgit v1.2.3