diff options
| author | Joris | 2016-03-31 00:06:50 +0200 |
|---|---|---|
| committer | Joris | 2016-03-31 00:13:25 +0200 |
| commit | c95e19407d492a0d4e9e14e320520fe29ce379e5 (patch) | |
| tree | ca6a14ad1396af6a4bc36e17ce89278d5dbea0a0 /src/client/elm/Server.elm | |
| parent | c542551ad043260e6a4a6569b4af5c748f7b6001 (diff) | |
| download | budget-c95e19407d492a0d4e9e14e320520fe29ce379e5.tar.gz budget-c95e19407d492a0d4e9e14e320520fe29ce379e5.tar.bz2 budget-c95e19407d492a0d4e9e14e320520fe29ce379e5.zip | |
Add init data in html page
Diffstat (limited to 'src/client/elm/Server.elm')
| -rw-r--r-- | src/client/elm/Server.elm | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/src/client/elm/Server.elm b/src/client/elm/Server.elm index ad6d212..be052bb 100644 --- a/src/client/elm/Server.elm +++ b/src/client/elm/Server.elm @@ -1,6 +1,5 @@ module Server - ( init - , signIn + ( signIn , addPayment , deletePayment , setIncome @@ -20,13 +19,6 @@ import Model.Income exposing (incomesDecoder, incomeIdDecoder, IncomeId) import Model.User exposing (Users, usersDecoder, UserId, userIdDecoder) import Model.Init exposing (Init) -init : Task Http.Error Init -init = - Task.map Init (Http.get usersDecoder "/api/users") - `Task.andMap` (Http.get ("id" := userIdDecoder) "/api/whoAmI") - `Task.andMap` (Http.get paymentsDecoder "/api/payments") - `Task.andMap` (Http.get incomesDecoder "/api/incomes") - signIn : String -> Task Http.Error () signIn email = post ("/api/signIn?email=" ++ email) |