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/LoggedIn/Home/Account/Model.elm | 20 ++++++++------------
 1 file changed, 8 insertions(+), 12 deletions(-)

(limited to 'src/client/elm/LoggedIn/Home/Account/Model.elm')

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
-- 
cgit v1.2.3