From c1ec9b40fa84be2fd7067251461eda64d3bd8b74 Mon Sep 17 00:00:00 2001
From: Joris
Date: Mon, 7 Sep 2015 12:24:56 +0200
Subject: Fixing logout page

---
 src/client/ServerCommunication.elm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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

diff --git a/src/client/ServerCommunication.elm b/src/client/ServerCommunication.elm
index 6d65552..fefbbff 100644
--- a/src/client/ServerCommunication.elm
+++ b/src/client/ServerCommunication.elm
@@ -76,8 +76,8 @@ simple method url =
 
 serverResult : Communication -> Http.Response -> Task Http.RawError U.Action
 serverResult communication response =
-  if response.status == 200
-    then
+  case response.status of
+    200 ->
       case communication of
         NoCommunication ->
           Task.succeed U.NoOp
@@ -107,7 +107,7 @@ serverResult communication response =
             response
         SignOut ->
           Task.succeed (U.GoSignInView)
-    else
+    errorStatus ->
       decodeResponse
         messageDecoder
         (\error ->
-- 
cgit v1.2.3