Merge branch 'with-ghcjs' into 'master'

Use Haskell on the frontend

See merge request guyonvarch/shared-cost!2

1 files changed, 0 insertions, 34 deletions

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