src/client/elm/View/LoggedIn.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

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.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 : Address Action -> Model -> LoggedInView -> Html
renderLoggedIn address model loggedInView =
  div
    [ class "loggedIn" ]
    [ addPayment address model loggedInView
    , div
        [ class "expandables" ]
        [ account address model loggedInView
        , monthlyPayments address model loggedInView
        ]
    , paymentsTable address model loggedInView
    , paymentsPaging address loggedInView
    ]