From 6b466f616035c2fc03359d182c074f096d6b7f17 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 29 Aug 2015 13:30:09 +0200
Subject: Showing exceeding payers

---
 src/client/View/Payments/ExceedingPayer.elm | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 src/client/View/Payments/ExceedingPayer.elm

(limited to 'src/client/View/Payments/ExceedingPayer.elm')

diff --git a/src/client/View/Payments/ExceedingPayer.elm b/src/client/View/Payments/ExceedingPayer.elm
new file mode 100644
index 0000000..cea8d66
--- /dev/null
+++ b/src/client/View/Payments/ExceedingPayer.elm
@@ -0,0 +1,24 @@
+module View.Payments.ExceedingPayer
+  ( exceedingPayers
+  ) where
+
+import Html exposing (..)
+import Html.Attributes exposing (..)
+import List
+
+import Model.Payers exposing (..)
+import Model.View.PaymentView exposing (PaymentView)
+
+exceedingPayers : PaymentView -> Html
+exceedingPayers paymentView =
+  div
+    [ class "exceedingPayers" ]
+    (List.map exceedingPayer (getOrderedExceedingPayers paymentView.payers))
+
+exceedingPayer : ExceedingPayer -> Html
+exceedingPayer payer =
+  div
+    [ class "exceedingPayer" ]
+    [ span [ class "userName" ] [ text payer.userName ]
+    , span [ class "amount" ] [ text ("+ " ++ (toString payer.amount)) ]
+    ]
-- 
cgit v1.2.3