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