Sorting monthly payments by name

1 files changed, 6 insertions, 1 deletions

diff --git a/src/client/View/LoggedIn/Monthly.elm b/src/client/View/LoggedIn/Monthly.elm
index 14c3de7..715288b 100644
--- a/src/client/View/LoggedIn/Monthly.elm
+++ b/src/client/View/LoggedIn/Monthly.elm
@@ -2,6 +2,8 @@ module View.LoggedIn.Monthly
   ( monthlyPayments
   ) where
 
+import String
+
 import Html exposing (..)
 import Html.Attributes exposing (..)
 import Html.Events exposing (..)
@@ -54,7 +56,10 @@ paymentsTable : Model -> LoggedInView -> Monthly -> Html
 paymentsTable model loggedInView monthly =
   div
     [ class "table" ]
-    ( List.map (paymentLine model loggedInView) monthly.payments )
+    ( monthly.payments
+        |> List.sortBy (String.toLower << .name)
+        |> List.map (paymentLine model loggedInView)
+    )
 
 paymentLine : Model -> LoggedInView -> Payment -> Html
 paymentLine model loggedInView payment =