diff options
author | Joris | 2016-01-02 19:07:19 +0100 |
---|---|---|
committer | Joris | 2016-01-02 19:07:19 +0100 |
commit | bb316286b0859b5648c61f44c88399f4c1aad9cd (patch) | |
tree | ecbe401c1ff657987b6609997a69775969a317f7 /src/client/elm/View/LoggedIn.elm | |
parent | 0d0c99fd28b782c7daf02fb5cc48d3eb252e705d (diff) | |
download | budget-bb316286b0859b5648c61f44c88399f4c1aad9cd.tar.gz budget-bb316286b0859b5648c61f44c88399f4c1aad9cd.tar.bz2 budget-bb316286b0859b5648c61f44c88399f4c1aad9cd.zip |
Use start-app for elm
Diffstat (limited to 'src/client/elm/View/LoggedIn.elm')
-rw-r--r-- | src/client/elm/View/LoggedIn.elm | 19 |
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 ] |