From c2f3e908511cdf782f4a324002a15b607ffbd125 Mon Sep 17 00:00:00 2001
From: nsensfel <SpamShield0@noot-noot.org>
Date: Mon, 9 Sep 2019 17:57:36 +0200
Subject: Highlights invalid glyphs.

---
 src/shared/elm/Util/List.elm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'src/shared/elm')

diff --git a/src/shared/elm/Util/List.elm b/src/shared/elm/Util/List.elm
index 1f914b1..829dd3e 100644
--- a/src/shared/elm/Util/List.elm
+++ b/src/shared/elm/Util/List.elm
@@ -1,5 +1,7 @@
 module Util.List exposing (..)
 
+import Set
+
 import List
 
 pop : List a -> (Maybe (a, List a))
@@ -34,3 +36,18 @@ product_map_rec product_fun list_a list_b result =
             )
          )
 
+duplicates : (List comparable) -> (Set.Set comparable)
+duplicates list =
+   let
+      (encountered, final_result) =
+         (List.foldl
+            (\elem (met, result) ->
+               if (Set.member elem met)
+               then (met, (Set.insert elem result))
+               else ((Set.insert elem met), result)
+            )
+            ((Set.empty), (Set.empty))
+            list
+         )
+   in
+      final_result
-- 
cgit v1.2.3-70-g09d2