From 3853811450d4fe801da996eb48825049c3541030 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 6 Sep 2015 16:46:59 +0200
Subject: Renaming PaymentView to LoggedInView

---
 src/client/View/Payments/ExceedingPayer.elm | 35 -----------------------------
 1 file changed, 35 deletions(-)
 delete 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
deleted file mode 100644
index 88b3a72..0000000
--- a/src/client/View/Payments/ExceedingPayer.elm
+++ /dev/null
@@ -1,35 +0,0 @@
-module View.Payments.ExceedingPayer
-  ( exceedingPayers
-  ) where
-
-import Html exposing (..)
-import Html.Attributes exposing (..)
-import List
-
-import Model exposing (Model)
-import Model.User exposing (getUserName)
-import Model.Payers exposing (..)
-import Model.View.LoggedView exposing (LoggedView)
-import Model.Translations exposing (getMessage)
-
-exceedingPayers : Model -> LoggedView -> Html
-exceedingPayers model loggedView =
-  div
-    [ class "exceedingPayers" ]
-    (List.map (exceedingPayer model loggedView) (getOrderedExceedingPayers loggedView.payers))
-
-exceedingPayer : Model -> LoggedView -> ExceedingPayer -> Html
-exceedingPayer model loggedView payer =
-  div
-    [ class "exceedingPayer" ]
-    [ span
-        [ class "userName" ]
-        [ payer.userId
-            |> getUserName loggedView.users
-            |> Maybe.withDefault "−"
-            |> text
-        ]
-    , span
-        [ class "amount" ]
-        [ text ("+ " ++ (toString payer.amount) ++ " " ++ (getMessage "MoneySymbol" model.translations)) ]
-    ]
-- 
cgit v1.2.3