From c0ea63f8c1a8c7123b78798cec99726b113fb1f3 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 17 Nov 2019 18:08:28 +0100
Subject: Optimize and refactor payments

---
 client/src/View/Payment/HeaderInfos.hs | 28 +++++++++++++---------------
 1 file changed, 13 insertions(+), 15 deletions(-)

(limited to 'client/src/View/Payment/HeaderInfos.hs')

diff --git a/client/src/View/Payment/HeaderInfos.hs b/client/src/View/Payment/HeaderInfos.hs
index 12facc4..f84ee1f 100644
--- a/client/src/View/Payment/HeaderInfos.hs
+++ b/client/src/View/Payment/HeaderInfos.hs
@@ -16,13 +16,11 @@ import qualified Reflex.Dom             as R
 
 import           Common.Model           (Currency, ExceedingPayer (..),
                                          Payment (..), PaymentHeader (..),
-                                         SavedPayment (..), User (..), UserId)
+                                         User (..), UserId)
 import qualified Common.Model           as CM
 import qualified Common.Msg             as Msg
 import qualified Common.View.Format     as Format
 
-import qualified Util.List              as L
-
 data In t = In
   { _in_users        :: [User]
   , _in_currency     :: Currency
@@ -32,17 +30,17 @@ data In t = In
 
 view :: forall t m. MonadWidget t m => In t -> m ()
 view input =
-  R.divClass "g-HeaderInfos" $ do
-      exceedingPayers
-        (_in_users input)
-        (_in_currency input)
-        (_paymentHeader_exceedingPayers header)
+  R.divClass "g-PaymentHeaderInfos" $ do
+    exceedingPayers
+      (_in_users input)
+      (_in_currency input)
+      (_paymentHeader_exceedingPayers header)
 
-      infos
-        (_in_users input)
-        (_in_currency input)
-        (_paymentHeader_repartition header)
-        (_in_paymentCount input)
+    infos
+      (_in_users input)
+      (_in_currency input)
+      (_paymentHeader_repartition header)
+      (_in_paymentCount input)
 
   where
     header = _in_header input
@@ -54,7 +52,7 @@ exceedingPayers
   -> [ExceedingPayer]
   -> m ()
 exceedingPayers users currency payers =
-  R.divClass "g-HeaderInfos__ExceedingPayers" $
+  R.divClass "g-PaymentHeaderInfos__ExceedingPayers" $
     flip mapM_ payers $ \payer ->
       R.elClass "span" "exceedingPayer" $ do
         R.elClass "span" "userName" $
@@ -72,7 +70,7 @@ infos
   -> Int
   -> m ()
 infos users currency repartition paymentCount =
-  R.divClass "g-HeaderInfos__Repartition" $ do
+  R.divClass "g-PaymentHeaderInfos__Repartition" $ do
 
     R.elClass "span" "total" $ do
       R.text $
-- 
cgit v1.2.3