From 3853811450d4fe801da996eb48825049c3541030 Mon Sep 17 00:00:00 2001 From: Joris Date: Sun, 6 Sep 2015 16:46:59 +0200 Subject: Renaming PaymentView to LoggedInView --- src/client/View/LoggedIn.elm | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 src/client/View/LoggedIn.elm (limited to 'src/client/View/LoggedIn.elm') diff --git a/src/client/View/LoggedIn.elm b/src/client/View/LoggedIn.elm new file mode 100644 index 0000000..57a8eb0 --- /dev/null +++ b/src/client/View/LoggedIn.elm @@ -0,0 +1,27 @@ +module View.LoggedIn + ( renderLoggedIn + ) where + +import Html exposing (..) +import Html.Attributes exposing (..) + +import Model exposing (Model) +import Model.Payment exposing (Payments) +import Model.View.LoggedInView exposing (LoggedInView) + +import View.LoggedIn.ExceedingPayer exposing (exceedingPayers) +import View.LoggedIn.Add exposing (addPayment) +import View.LoggedIn.Monthly exposing (monthlyPayments) +import View.LoggedIn.Table exposing (paymentsTable) +import View.LoggedIn.Paging exposing (paymentsPaging) + +renderLoggedIn : Model -> LoggedInView -> Html +renderLoggedIn model loggedInView = + div + [ class "payments" ] + [ exceedingPayers model loggedInView + , addPayment model loggedInView + , monthlyPayments model loggedInView + , paymentsTable model loggedInView + , paymentsPaging loggedInView + ] -- cgit v1.2.3