diff options
| author | Joris | 2016-01-03 19:57:59 +0100 |
|---|---|---|
| committer | Joris | 2016-01-03 19:57:59 +0100 |
| commit | d22d10da342520163014dda255d5d9bd5e1a80c0 (patch) | |
| tree | 02f17aeeab9ec0f95ae8d53017e4e33de347d9d1 /src/client/elm/Server.elm | |
| parent | a8309988518af5bddf62d6a326d990fde4069b40 (diff) | |
| download | budget-d22d10da342520163014dda255d5d9bd5e1a80c0.tar.gz budget-d22d10da342520163014dda255d5d9bd5e1a80c0.tar.bz2 budget-d22d10da342520163014dda255d5d9bd5e1a80c0.zip | |
Move update income to the account update layer
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 cb65868..3a6c86a 100644 --- a/src/client/elm/Server.elm +++ b/src/client/elm/Server.elm @@ -43,10 +43,10 @@ deletePayment payment frequency = post ("payment/delete?id=" ++ (toString payment.id)) |> Task.map (always (UL.ValidateDeletePayment payment frequency)) -setIncome : Time -> Int -> Task Http.Error Action +setIncome : Time -> Int -> Task Http.Error AccountAction setIncome currentTime amount = post ("/income?amount=" ++ (toString amount)) - |> Task.map (always (U.UpdateLoggedIn (UL.UpdateAccount (UA.UpdateIncome currentTime amount)))) + |> Task.map (always (UA.ValidateUpdateIncome currentTime amount)) signOut : Task Http.Error Action signOut = |