expiry: bugfix: failing to delete unbanned clients.

1 files 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*