Add Search.length

Author: hojberg

src/Lib/Search.elm

@@ -10,6 +10,7 @@ module Lib.Search exposing
     , isEmptyQuery
     , isEmptyResults
     , isSearching
+    , length
     , queriesEquals
     , query
     , queryEquals
@@ -189,6 +190,25 @@ isEmptyQuery =
     query >> String.isEmpty
 
 
+length : Search a -> Maybe Int
+length s =
+    case s of
+        NotAsked _ ->
+            Nothing
+
+        Searching _ (Just r) ->
+            Just (SearchResults.length r)
+
+        Searching _ Nothing ->
+            Nothing
+
+        Success _ r ->
+            Just (SearchResults.length r)
+
+        Failure _ _ ->
+            Nothing
+
+
 isEmptyResults : Search a -> Maybe Bool
 isEmptyResults s =
     case s of