src/client/elm/LoggedIn/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.View
  ( view
  ) where

import Signal exposing (Address)

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

import LoggedIn.Model as LoggedInModel
import LoggedIn.Account.View as AccountView
import LoggedIn.AddPayment.View as AddPaymentView

import Model exposing (Model)
import Model.Payment exposing (Payments)
import Model.Action exposing (Action)

import View.LoggedIn.Monthly exposing (monthlyPayments)
import View.LoggedIn.Table exposing (paymentsTable)
import View.LoggedIn.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
        , monthlyPayments address model loggedInModel
        ]
    , paymentsTable address model loggedInModel
    , paymentsPaging address loggedInModel
    ]