Add SearchResults.mapMatches

unisonweb · Nov 6, 2024 · 76d0d7b · 76d0d7b
1 parent edc03d3
commit 76d0d7b
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/src/Lib/SearchResults.elm b/src/Lib/SearchResults.elm
@@ -12,6 +12,7 @@ module Lib.SearchResults exposing
     , isEmpty
     , length
     , map
+    , mapMatches
     , mapMatchesToList
     , mapToList
     , matchesToList
@@ -87,6 +88,16 @@ map f results =
             SearchResults (f matches)
 
 
+mapMatches : (a -> b) -> SearchResults a -> SearchResults b
+mapMatches f results =
+    case results of
+        Empty ->
+            Empty
+
+        SearchResults (Matches matches) ->
+            SearchResults (Matches (Zipper.map f matches))
+
+
 mapToList : (a -> Bool -> b) -> SearchResults a -> List b
 mapToList f results =
     case results of