From 1544df66a419113dde904bf7cb50e0dc3d4c15d9 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Tue, 10 Apr 2012 00:18:44 +0200
Subject: Fix HTTP error codes where applicable.

---
 src/mulk/benki/auth.clj     | 4 ++--
 src/mulk/benki/lazychat.clj | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/mulk/benki/auth.clj b/src/mulk/benki/auth.clj
index 03d9746..815fad0 100644
--- a/src/mulk/benki/auth.clj
+++ b/src/mulk/benki/auth.clj
@@ -68,10 +68,10 @@
             (let [return-uri (session/flash-get)]
               (session/put! :user user-id)
               (response/json {:email email, :returnURI return-uri}))
-            {:status 418,
+            {:status 422,
              :headers {"Content-Type" "text/plain"},
              :body "I couldn't find you in the database."})))
-      {:status 418,
+      {:status 400,
        :headers {"Content-Type" "text/plain"},
        :body "Your BrowserID request was crooked."})))
 
diff --git a/src/mulk/benki/lazychat.clj b/src/mulk/benki/lazychat.clj
index 6f9f011..6865d01 100644
--- a/src/mulk/benki/lazychat.clj
+++ b/src/mulk/benki/lazychat.clj
@@ -186,7 +186,7 @@
       (receive-all messages
                    (fn [msg]
                      (async-push conn (render-message msg)))))
-    {:status 418}))
+    (async-push conn {:status 426})))
 
 (defpage [:any "/lafargue/post"] {content  :content, visibility :visibility
                                   format   :format,  targets    :targets,
-- 
cgit v1.2.3