aboutsummaryrefslogtreecommitdiff
path: root/src/client/elm/LoggedIn/Home/View.elm
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/elm/LoggedIn/Home/View.elm')
-rw-r--r--src/client/elm/LoggedIn/Home/View.elm26
1 files changed, 12 insertions, 14 deletions
diff --git a/src/client/elm/LoggedIn/Home/View.elm b/src/client/elm/LoggedIn/Home/View.elm
index 23da2c5..7e6ba40 100644
--- a/src/client/elm/LoggedIn/Home/View.elm
+++ b/src/client/elm/LoggedIn/Home/View.elm
@@ -2,33 +2,31 @@ module LoggedIn.Home.View
( view
) where
-import Signal exposing (Address)
-
import Html exposing (..)
import Html.Attributes exposing (..)
+import LoggedData exposing (LoggedData)
+
import LoggedIn.Home.Model as LoggedInModel
import LoggedIn.Home.Account.View as AccountView
import LoggedIn.Home.AddPayment.View as AddPaymentView
-import LoggedIn.Home.Monthly.View as MonthlyView
-
-import Model exposing (Model)
-import Model.Payment exposing (Payments)
-import Action exposing (Action)
+import LoggedIn.Home.View.Monthly as MonthlyView
import LoggedIn.Home.View.Table exposing (paymentsTable)
import LoggedIn.Home.View.Paging exposing (paymentsPaging)
-view : Address Action -> Model -> LoggedInModel.Model -> Html
-view address model loggedInModel =
+import Mailbox
+
+view : LoggedData -> LoggedInModel.Model -> Html
+view loggedData loggedIn =
div
[ class "loggedIn" ]
- [ AddPaymentView.view address model loggedInModel
+ [ AddPaymentView.view loggedData loggedIn
, div
[ class "expandables" ]
- [ AccountView.view address model loggedInModel
- , MonthlyView.view address model loggedInModel
+ [ AccountView.view loggedData loggedIn
+ , MonthlyView.view loggedData loggedIn
]
- , paymentsTable address model loggedInModel
- , paymentsPaging address loggedInModel
+ , paymentsTable loggedData loggedIn
+ , paymentsPaging Mailbox.address loggedData.payments loggedIn
]