diff options
author | Joris | 2016-03-29 23:46:47 +0200 |
---|---|---|
committer | Joris | 2016-03-29 23:46:47 +0200 |
commit | 76f8b85eb9f796d6df861a04f702ef5f48630795 (patch) | |
tree | c8b975df9854994cbbefff15908ad9bb728264bc /src/client/elm/Server.elm | |
parent | cc58377a48d13ef85cedb5ec0e19eb8b879dd497 (diff) |
Move logged data to LoggedIn component
Diffstat (limited to 'src/client/elm/Server.elm')
-rw-r--r-- | src/client/elm/Server.elm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/client/elm/Server.elm b/src/client/elm/Server.elm index b4afe20..99ce938 100644 --- a/src/client/elm/Server.elm +++ b/src/client/elm/Server.elm @@ -12,7 +12,6 @@ import Task as Task exposing (Task) import Http import Json.Decode as Json exposing ((:=)) import Date -import Time exposing (Time) import Utils.Http exposing (..) @@ -44,8 +43,8 @@ deletePayment payment frequency = post ("/api/payment/delete?id=" ++ (toString payment.id)) |> Task.map (always ()) -setIncome : Time -> Int -> Task Http.Error IncomeId -setIncome currentTime amount = +setIncome : Int -> Task Http.Error IncomeId +setIncome amount = post ("/api/income?amount=" ++ (toString amount)) |> flip Task.andThen (decodeHttpValue <| "id" := incomeIdDecoder) |