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
35

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 Model exposing (Model)
import Model.Payment exposing (Payments)
import Model.Action exposing (Action)

import View.LoggedIn.AddPayment exposing (addPayment)
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" ]
    [ addPayment address model loggedInModel
    , div
        [ class "expandables" ]
        [ AccountView.view address model loggedInModel
        , monthlyPayments address model loggedInModel
        ]
    , paymentsTable address model loggedInModel
    , paymentsPaging address loggedInModel
    ]