From 76f8b85eb9f796d6df861a04f702ef5f48630795 Mon Sep 17 00:00:00 2001 From: Joris Date: Tue, 29 Mar 2016 23:46:47 +0200 Subject: Move logged data to LoggedIn component --- src/client/elm/Server.elm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'src/client/elm/Server.elm') 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) -- cgit v1.2.3