diff options
Diffstat (limited to 'src/client/LoggedIn/Home/View.elm')
| -rw-r--r-- | src/client/LoggedIn/Home/View.elm | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/src/client/LoggedIn/Home/View.elm b/src/client/LoggedIn/Home/View.elm index 0b90e67..fba3f7c 100644 --- a/src/client/LoggedIn/Home/View.elm +++ b/src/client/LoggedIn/Home/View.elm @@ -16,7 +16,8 @@ import LoggedIn.Home.Msg as HomeMsg import LoggedIn.Home.View.Paging as Paging import LoggedIn.Home.View.Table as Table import LoggedIn.Msg as LoggedInMsg -import Model.Payment as Payment exposing (Frequency(..)) +import Model.Payment as Payment +import Model.Frequency exposing (Frequency(..)) import Msg exposing (Msg) view : LoggedData -> Home.Model -> Html Msg @@ -26,12 +27,16 @@ view loggedData home = Just data -> (Maybe.withDefault "" data.name, data.frequency) Nothing -> ("", Punctual) payments = Payment.search name frequency loggedData.payments + page = + case frequency of + Punctual -> home.punctualPage + Monthly -> home.monthlyPage in div [ class "home" ] [ Header.view loggedData home payments frequency - , Table.view loggedData home payments frequency + , Table.view loggedData home payments frequency page , Paging.view - home.currentPage + page (List.length payments) Msg.NoOp (Msg.UpdateLoggedIn << LoggedInMsg.HomeMsg << HomeMsg.UpdatePage) |