diff options
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) |