aboutsummaryrefslogtreecommitdiff
path: root/src/client/elm/View/LoggedIn.elm
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/elm/View/LoggedIn.elm')
-rw-r--r--src/client/elm/View/LoggedIn.elm19
1 files changed, 11 insertions, 8 deletions
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
]