From 47104f0b3965cd1dfba0f466afdb5e8983dc7bec Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 12 Mar 2016 00:21:41 +0100
Subject: Do not try to init data after login mail was sent

---
 src/client/elm/Server.elm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/src/client/elm/Server.elm b/src/client/elm/Server.elm
index 9478f2a..c1fb445 100644
--- a/src/client/elm/Server.elm
+++ b/src/client/elm/Server.elm
@@ -30,10 +30,10 @@ init =
     `Task.andMap` (Http.get ("number" := Json.int) "/payments/count")
     `Task.andMap` (Http.get payersDecoder "/payers")
 
-signIn : String -> Task Http.Error Init
+signIn : String -> Task Http.Error ()
 signIn email =
   post ("/signIn?email=" ++ email)
-    |> flip Task.andThen (always init)
+    |> Task.map (always ())
 
 addPayment : String -> String -> PaymentFrequency -> Task Http.Error PaymentId
 addPayment name cost frequency =
-- 
cgit v1.2.3