src/client/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.ExceedingPayer exposing (exceedingPayers)
import View.LoggedIn.Add exposing (addPayment)
import View.LoggedIn.Monthly exposing (monthlyPayments)
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" ]
        [ monthlyPayments model loggedInView
        , exceedingPayers model loggedInView
        ]
    , paymentsTable model loggedInView
    , paymentsPaging loggedInView
    ]