From d9df5c3fcffe12aac239b58ccf2fd82c19c3be62 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 3 Jan 2016 23:37:14 +0100
Subject: Validate add payment server side

---
 src/client/elm/SimpleHTTP.elm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'src/client/elm/SimpleHTTP.elm')

diff --git a/src/client/elm/SimpleHTTP.elm b/src/client/elm/SimpleHTTP.elm
index 99a7056..3e01178 100644
--- a/src/client/elm/SimpleHTTP.elm
+++ b/src/client/elm/SimpleHTTP.elm
@@ -22,7 +22,13 @@ handleResponse : Response -> Task Error Value
 handleResponse response =
   if 200 <= response.status && response.status < 300
     then Task.succeed response.value
-    else fail (BadResponse response.status response.statusText)
+    else fail (BadResponse response.status (responseString response.value))
+
+responseString : Value -> String
+responseString value =
+  case value of
+    Text str -> str
+    _ -> ""
 
 promoteError : RawError -> Error
 promoteError rawError =
-- 
cgit v1.2.3