From 3f03edf9c877647b2809d5023fcfd4bc1191419f Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Fri, 6 Nov 2009 18:40:26 +0100
Subject: Fix a typo.

Ignore-this: 9d70a3e19b339a3c796792b97aa59b17

darcs-hash:881e8887bac7cfceecda43b3d229cf71fde10bd7
---
 main.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'main.lisp')

diff --git a/main.lisp b/main.lisp
index 1a8ce85..42eda2c 100644
--- a/main.lisp
+++ b/main.lisp
@@ -155,7 +155,7 @@
                       (acceptp (getf *query* :acceptp nil))
                       (table (cond ((string= type "trackback") 'journal_trackback)
                                    ((string= type "pingback") 'journal_pingback)
-                                 'journal_comment)))
+                                   (t 'journal_comment))))
                  (with-transaction ()
                    (when (and id type acceptp (string= acceptp "t"))
                      (update-records table
-- 
cgit v1.2.3