Renaming PaymentView to LoggedInView

1 files changed, 0 insertions, 35 deletions

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)) ]
-    ]