From 5e4c0344d3ed5941745bad6175221405788bfd21 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Fri, 30 Oct 2009 21:14:53 +0100
Subject: Fix XML-RPC response format.

Ignore-this: df93c70e15dccc898fa1770c8a6193b4

darcs-hash:618430f8da6f5e8e555b2af9157a6c6f8c9f8495
---
 main.lisp | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'main.lisp')

diff --git a/main.lisp b/main.lisp
index 8fce09d..9c29fe2 100644
--- a/main.lisp
+++ b/main.lisp
@@ -336,6 +336,8 @@
                   (write (let ((*xml-rpc-package*
                                 (find-package '#:mulk.journal.xml-rpc)))
                            (s-xml-rpc::handle-xml-rpc-call xml-data 0))
+                         :pretty nil
+                         :escape nil
                          :stream *standard-output*))))
     (otherwise (show-web-journal)))
   #.(restore-sql-reader-syntax-state))
-- 
cgit v1.2.3