aboutsummaryrefslogtreecommitdiff
path: root/src/client
diff options
context:
space:
mode:
Diffstat (limited to 'src/client')
-rw-r--r--src/client/View/LoggedIn.elm4
-rw-r--r--src/client/View/LoggedIn/Account.elm2
-rw-r--r--src/client/View/LoggedIn/Monthly.elm20
3 files changed, 10 insertions, 16 deletions
diff --git a/src/client/View/LoggedIn.elm b/src/client/View/LoggedIn.elm
index 20c99d3..96916e0 100644
--- a/src/client/View/LoggedIn.elm
+++ b/src/client/View/LoggedIn.elm
@@ -22,8 +22,8 @@ renderLoggedIn model loggedInView =
[ addPayment model loggedInView
, div
[ class "expandables" ]
- [ monthlyPayments model loggedInView
- , account model loggedInView
+ [ account model loggedInView
+ , monthlyPayments model loggedInView
]
, paymentsTable model loggedInView
, paymentsPaging loggedInView
diff --git a/src/client/View/LoggedIn/Account.elm b/src/client/View/LoggedIn/Account.elm
index e2b8e7e..88f39c3 100644
--- a/src/client/View/LoggedIn/Account.elm
+++ b/src/client/View/LoggedIn/Account.elm
@@ -39,7 +39,7 @@ account model loggedInView =
exceedingPayers : Model -> LoggedInView -> Html
exceedingPayers model loggedInView =
button
- [ class "exceedingPayers"
+ [ class "header"
, onClick actions.address (UpdateLoggedIn << UpdateAccount <| ToggleDetail)
]
( (List.map (exceedingPayer model loggedInView) (getOrderedExceedingPayers loggedInView.account.payers))
diff --git a/src/client/View/LoggedIn/Monthly.elm b/src/client/View/LoggedIn/Monthly.elm
index 518724b..9195479 100644
--- a/src/client/View/LoggedIn/Monthly.elm
+++ b/src/client/View/LoggedIn/Monthly.elm
@@ -42,19 +42,13 @@ monthlyCount model monthly =
let count = List.length monthly.payments
total = List.sum << List.map .cost <| monthly.payments
key = if count > 1 then "PluralMonthlyCount" else "SingularMonthlyCount"
- in if count == 0
- then
- div
- [ class "count" ]
- [ text (getMessage "NoMonthlyPayment" model.translations) ]
- else
- button
- [ class "count"
- , onClick actions.address (UpdateLoggedIn << UpdateMonthly <| ToggleDetail)
- ]
- [ text (getParamMessage [toString count, price model total] key model.translations)
- , expand ExpandDown monthly.visibleDetail
- ]
+ in button
+ [ class "header"
+ , onClick actions.address (UpdateLoggedIn << UpdateMonthly <| ToggleDetail)
+ ]
+ [ text (getParamMessage [toString count, price model total] key model.translations)
+ , expand ExpandDown monthly.visibleDetail
+ ]
paymentsTable : Model -> LoggedInView -> Monthly -> Html
paymentsTable model loggedInView monthly =