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/LoggedIn/Home/Account/Model.elm | |
parent | cc58377a48d13ef85cedb5ec0e19eb8b879dd497 (diff) | |
download | budget-76f8b85eb9f796d6df861a04f702ef5f48630795.tar.gz budget-76f8b85eb9f796d6df861a04f702ef5f48630795.tar.bz2 budget-76f8b85eb9f796d6df861a04f702ef5f48630795.zip |
Move logged data to LoggedIn component
Diffstat (limited to 'src/client/elm/LoggedIn/Home/Account/Model.elm')
-rw-r--r-- | src/client/elm/LoggedIn/Home/Account/Model.elm | 20 |
1 files changed, 8 insertions, 12 deletions
diff --git a/src/client/elm/LoggedIn/Home/Account/Model.elm b/src/client/elm/LoggedIn/Home/Account/Model.elm index d8bf748..d04f865 100644 --- a/src/client/elm/LoggedIn/Home/Account/Model.elm +++ b/src/client/elm/LoggedIn/Home/Account/Model.elm @@ -18,24 +18,20 @@ import Model.Income exposing (..) import Model.User exposing (UserId) type alias Model = - { me : UserId - , incomes : Incomes - , visibleDetail : Bool + { visibleDetail : Bool , incomeEdition : Maybe IncomeEdition } -init : UserId -> Incomes -> Model -init me incomes = - { me = me - , incomes = incomes - , visibleDetail = False +init : Model +init = + { visibleDetail = False , incomeEdition = Nothing } -getCurrentIncome : Model -> Maybe Int -getCurrentIncome account = - account.incomes - |> Dict.filter (\_ income -> income.userId == account.me) +getCurrentIncome : Incomes -> UserId -> Model -> Maybe Int +getCurrentIncome incomes me account = + incomes + |> Dict.filter (\_ income -> income.userId == me) |> Dict.values |> List.sortBy .creation |> List.reverse |