From 898e7ed11ab0958fcdaf65b99b33f7b04787630a Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 24 Sep 2017 22:14:48 +0200
Subject: Bootstrap with GHCJS and reflex:

- setup login and logout,
- first draft of payment view.
---
 src/client/LoggedIn/Stat/Model.elm | 34 ----------------------------------
 1 file changed, 34 deletions(-)
 delete mode 100644 src/client/LoggedIn/Stat/Model.elm

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

diff --git a/src/client/LoggedIn/Stat/Model.elm b/src/client/LoggedIn/Stat/Model.elm
deleted file mode 100644
index bfc66f2..0000000
--- a/src/client/LoggedIn/Stat/Model.elm
+++ /dev/null
@@ -1,34 +0,0 @@
-module LoggedIn.Stat.Model exposing
-  ( Model
-  , init
-  , getPaymentsByMonthByCategory
-  )
-
-import Date exposing (Month)
-import List.Extra as List
-import Time exposing (Time)
-
-import Model.Category exposing (CategoryId)
-import Model.Conf exposing (Conf)
-import Model.Payment as Payment exposing (Payments)
-import Model.PaymentCategory as PaymentCategory exposing (PaymentCategories)
-
-type alias Model =
-  { paymentsByMonthByCategory : List ((Month, Int), List (CategoryId, Int))
-  }
-
-init : Time -> PaymentCategories -> Payments -> Model
-init currentTime paymentCategories payments =
-  { paymentsByMonthByCategory = getPaymentsByMonthByCategory currentTime paymentCategories payments
-  }
-
-getPaymentsByMonthByCategory : Time -> PaymentCategories -> Payments -> List ((Month, Int), List (CategoryId, Int))
-getPaymentsByMonthByCategory currentTime paymentCategories payments =
-  Payment.punctual payments
-    |> Payment.groupAndSortByMonth
-    |> List.map (\(m, payments) ->
-         ( m
-         , PaymentCategory.groupPaymentsByCategory paymentCategories payments
-             |> List.map (Tuple.mapSecond (List.sum << List.map .cost))
-         )
-       )
-- 
cgit v1.2.3