src/client/elm/LoggedIn/Home/View.elm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34

module LoggedIn.Home.View
  ( view
  ) where

import Signal exposing (Address)

import Html exposing (..)
import Html.Attributes exposing (..)

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.Table exposing (paymentsTable)
import LoggedIn.Home.View.Paging exposing (paymentsPaging)

view : Address Action -> Model -> LoggedInModel.Model -> Html
view address model loggedInModel =
  div
    [ class "loggedIn" ]
    [ AddPaymentView.view address model loggedInModel
    , div
        [ class "expandables" ]
        [ AccountView.view address model loggedInModel
        , MonthlyView.view address model loggedInModel
        ]
    , paymentsTable address model loggedInModel
    , paymentsPaging address loggedInModel
    ]