diff options
| author | Joris | 2016-03-12 00:21:41 +0100 |
|---|---|---|
| committer | Joris | 2016-03-12 00:21:41 +0100 |
| commit | 47104f0b3965cd1dfba0f466afdb5e8983dc7bec (patch) | |
| tree | ac62eac33c624d14de93f3958270cbf60973b8b6 /src/client/elm/Server.elm | |
| parent | 9d57e149fcb124a28813c56f83cf254eb92baa42 (diff) | |
| download | budget-47104f0b3965cd1dfba0f466afdb5e8983dc7bec.tar.gz budget-47104f0b3965cd1dfba0f466afdb5e8983dc7bec.tar.bz2 budget-47104f0b3965cd1dfba0f466afdb5e8983dc7bec.zip | |
Do not try to init data after login mail was sent
Diffstat (limited to 'src/client/elm/Server.elm')
| -rw-r--r-- | src/client/elm/Server.elm | 4 |
1 files changed, 2 insertions, 2 deletions
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 = |