From bb316286b0859b5648c61f44c88399f4c1aad9cd Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 2 Jan 2016 19:07:19 +0100
Subject: Use start-app for elm

---
 src/client/elm/View/LoggedIn.elm | 19 +++++++++++--------
 1 file changed, 11 insertions(+), 8 deletions(-)

(limited to 'src/client/elm/View/LoggedIn.elm')

diff --git a/src/client/elm/View/LoggedIn.elm b/src/client/elm/View/LoggedIn.elm
index 96916e0..69d1294 100644
--- a/src/client/elm/View/LoggedIn.elm
+++ b/src/client/elm/View/LoggedIn.elm
@@ -2,29 +2,32 @@ module View.LoggedIn
   ( renderLoggedIn
   ) where
 
+import Signal exposing (Address)
+
 import Html exposing (..)
 import Html.Attributes exposing (..)
 
 import Model exposing (Model)
 import Model.Payment exposing (Payments)
+import Model.Action exposing (Action)
 import Model.View.LoggedInView exposing (LoggedInView)
 
-import View.LoggedIn.Add exposing (addPayment)
+import View.LoggedIn.AddPayment exposing (addPayment)
 import View.LoggedIn.Monthly exposing (monthlyPayments)
 import View.LoggedIn.Account exposing (account)
 import View.LoggedIn.Table exposing (paymentsTable)
 import View.LoggedIn.Paging exposing (paymentsPaging)
 
-renderLoggedIn : Model -> LoggedInView -> Html
-renderLoggedIn model loggedInView =
+renderLoggedIn : Address Action -> Model -> LoggedInView -> Html
+renderLoggedIn address model loggedInView =
   div
     [ class "loggedIn" ]
-    [ addPayment model loggedInView
+    [ addPayment address model loggedInView
     , div
         [ class "expandables" ]
-        [ account model loggedInView
-        , monthlyPayments model loggedInView
+        [ account address model loggedInView
+        , monthlyPayments address model loggedInView
         ]
-    , paymentsTable model loggedInView
-    , paymentsPaging loggedInView
+    , paymentsTable address model loggedInView
+    , paymentsPaging address loggedInView
     ]
-- 
cgit v1.2.3