From a9f4ecc79e679f77d593a4684479946cbd661451 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Sun, 18 Oct 2015 04:30:38 +0200
Subject: [PATCH] made an error that was no error not an error

---
 Handler/Commons.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Handler/Commons.hs b/Handler/Commons.hs
index b3f96b9..28b370b 100755
--- a/Handler/Commons.hs
+++ b/Handler/Commons.hs
@@ -128,8 +128,8 @@ putIndexES input = do
       runBH' $ indexDocument (IndexName "comment") (MappingName "comment") defaultIndexDocumentSettings comment (DocId $ extractKey cId)
   case statusCode (responseStatus resp) of
     201 -> return ()
-    -- 200 -> return ()
-    _ -> error $ C.unpack $ BL.toStrict $ responseBody resp
+    200 -> return ()
+    code -> error $ (show code) ++ ": " ++ (C.unpack $ BL.toStrict $ responseBody resp)
 
 deleteIndexES :: ESInput -> Handler ()
 deleteIndexES input = do