summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2009-10-30 21:21:04 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2009-10-30 21:21:04 +0100
commit1a0c37cae11abb59d146b566490f99884af2cfb5 (patch)
treedc98cf54f6347c49b6286d725ca0f224620e31e6
parent77ab32bf3f25ed4e4611de1e3119404654c580c2 (diff)
Don't touch the query information when doing an XML-RPC call.
Ignore-this: b862cd822fdd388286525bf8d2ad4a22 darcs-hash:bcd1d88360610685932eba94ea6e42f0c7a990da
-rw-r--r--main.lisp2
1 files changed, 1 insertions, 1 deletions
diff --git a/main.lisp b/main.lisp
index 57aa72c..891219e 100644
--- a/main.lisp
+++ b/main.lisp
@@ -47,7 +47,7 @@
((string= "rebuild" (car (last *subpath*))) :rebuild)
((member (car (last *subpath*)) '("rpc" "RPC2") :test #'string=) :xml-rpc)
(t nil))))
- (*query* (if (eq *action* :view-atom-entry)
+ (*query* (if (member *action* '(:view-atom-entry :xml-rpc))
nil
(mapcan #'(lambda (param)
(list (keywordify param)