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/Utils/List.elm | 36 ------------------------------------
 1 file changed, 36 deletions(-)
 delete mode 100644 src/client/Utils/List.elm

(limited to 'src/client/Utils/List.elm')

diff --git a/src/client/Utils/List.elm b/src/client/Utils/List.elm
deleted file mode 100644
index 8e26e85..0000000
--- a/src/client/Utils/List.elm
+++ /dev/null
@@ -1,36 +0,0 @@
-module Utils.List exposing
-  ( groupBy
-  , mean
-  , links
-  )
-
-import Dict
-import Maybe.Extra as Maybe
-
-groupBy : (a -> comparable) -> List a -> List (comparable, List a)
-groupBy f xs =
-  let addItem item dict =
-        let groupItems = Dict.get (f item) dict |> Maybe.withDefault []
-        in  Dict.insert (f item) (item :: groupItems) dict
-  in  List.foldr addItem Dict.empty xs
-        |> Dict.toList
-
-mean : List Int -> Int
-mean xs = (List.sum xs) // (List.length xs)
-
-links : List a -> List (a, a)
-links xs =
-  let reversed = List.reverse xs
-  in  List.foldr
-        (\x acc ->
-          case Maybe.map Tuple.first (List.head acc) of
-            Just y ->
-              (x, y) :: acc
-            _ ->
-              acc
-        )
-        (case reversed of
-          x :: y :: _ -> [(y, x)]
-          _ -> []
-        )
-        (List.reverse << List.drop 2 <| reversed)
-- 
cgit v1.2.3