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

module View.LoggedIn
  ( renderLoggedIn
  ) where

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

import Model exposing (Model)
import Model.Payment exposing (Payments)
import Model.View.LoggedInView exposing (LoggedInView)

import View.LoggedIn.Add 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 =
  div
    [ class "loggedIn" ]
    [ addPayment model loggedInView
    , div
        [ class "expandables" ]
        [ account model loggedInView
        , monthlyPayments model loggedInView
        ]
    , paymentsTable model loggedInView
    , paymentsPaging loggedInView
    ]