From 70720548c9af024dbb6080638ac8e5470c2213eb Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 25 Jun 2016 15:10:03 +0200
Subject: Use the search to view either punctual or monthly payments

---
 src/client/elm/LoggedIn/Stat/Account/View.elm | 38 ---------------------------
 1 file changed, 38 deletions(-)
 delete mode 100644 src/client/elm/LoggedIn/Stat/Account/View.elm

(limited to 'src/client/elm/LoggedIn/Stat/Account/View.elm')

diff --git a/src/client/elm/LoggedIn/Stat/Account/View.elm b/src/client/elm/LoggedIn/Stat/Account/View.elm
deleted file mode 100644
index 3eb5ef4..0000000
--- a/src/client/elm/LoggedIn/Stat/Account/View.elm
+++ /dev/null
@@ -1,38 +0,0 @@
-module LoggedIn.Stat.Account.View exposing
-  ( view
-  )
-
-import Html exposing (..)
-import Html.Attributes exposing (..)
-
-import Msg exposing (Msg)
-
-import LoggedData exposing (LoggedData)
-
-import LoggedIn.View.Format as Format
-
-import Model exposing (Model)
-import Model.User exposing (getUserName)
-import Model.Payer exposing (..)
-
-view : LoggedData -> Html Msg
-view loggedData =
-  ul
-    [ class "exceedingPayers" ]
-    (List.map (exceedingPayer loggedData) (getOrderedExceedingPayers loggedData.currentTime loggedData.users loggedData.incomes loggedData.payments))
-
-exceedingPayer : LoggedData -> ExceedingPayer -> Html Msg
-exceedingPayer loggedData payer =
-  li
-    []
-    [ span
-        [ class "userName" ]
-        [ payer.userId
-            |> getUserName loggedData.users
-            |> Maybe.withDefault "−"
-            |> text
-        ]
-    , span
-        [ class "amount" ]
-        [ text ("+ " ++ (Format.price loggedData.conf payer.amount)) ]
-    ]
-- 
cgit v1.2.3