nek0/eidolon
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

made an error that was no error not an error

Browse source
This commit is contained in:
nek0 2015-10-18 04:30:38 +02:00
parent 6085c93a1f
commit a9f4ecc79e
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Handler/Commons.hs
View file

@ -128,8 +128,8 @@ putIndexES input = do
runBH' $ indexDocument (IndexName "comment") (MappingName "comment") defaultIndexDocumentSettings comment (DocId $ extractKey cId) runBH' $ indexDocument (IndexName "comment") (MappingName "comment") defaultIndexDocumentSettings comment (DocId $ extractKey cId)
case statusCode (responseStatus resp) of case statusCode (responseStatus resp) of
201 -> return () 201 -> return ()
-- 200 -> return () 200 -> return ()
_ -> error $ C.unpack $ BL.toStrict $ responseBody resp code -> error $ (show code) ++ ": " ++ (C.unpack $ BL.toStrict $ responseBody resp)
deleteIndexES :: ESInput -> Handler () deleteIndexES :: ESInput -> Handler ()
deleteIndexES input = do deleteIndexES input = do