Clientside filtering is case insensitive now

I really enjoy the concept of filterMap combined with Maybe.
RailsEventStore · Mar 22, 2024 · a87d7f6 · a87d7f6
1 parent 2bb07e6
commit a87d7f6
Show file tree

Hide file tree

Showing 2 changed files with 23 additions and 2 deletions.
diff --git a/ruby_event_store-browser/elm/src/Search.elm b/ruby_event_store-browser/elm/src/Search.elm
@@ -134,4 +134,20 @@ filterStreams stream streams =
         []
 
     else
-        List.filter (String.contains stream) streams
+        List.filterMap (caseInsensitiveContains stream) streams
+
+
+caseInsensitiveContains : Stream -> Stream -> Maybe Stream
+caseInsensitiveContains needle haystack =
+    let
+        needleLower =
+            String.toLower needle
+
+        haystackLower =
+            String.toLower haystack
+    in
+    if String.contains needleLower haystackLower then
+        Just haystack
+
+    else
+        Nothing
diff --git a/ruby_event_store-browser/elm/tests/SearchTest.elm b/ruby_event_store-browser/elm/tests/SearchTest.elm
@@ -1,7 +1,7 @@
 module SearchTest exposing (suite)
 
 import Expect
-import Search exposing (Stream, filterStreams)
+import Search exposing (filterStreams)
 import Test exposing (..)
 
 
@@ -29,5 +29,10 @@ suite =
                     Expect.equal
                         [ "DummyStream$78" ]
                         (filterStreams "78" [ "DummyStream$78", "DummyStream$79" ])
+            , test "filterStreams is case insensitive" <|
+                \_ ->
+                    Expect.equal
+                        [ "DummyStream$78", "DummyStream$79" ]
+                        (filterStreams "stream" [ "DummyStream$78", "DummyStream$79" ])
             ]
         ]