implemented goalieSearch

2019-10-30 23:01:59 -04:00
parent 2926e28e34
commit 7e19ee072f
2 changed files with 25 additions and 1 deletions
--- a/src/Mtlstats/Types.hs
+++ b/src/Mtlstats/Types.hs
@@ -843,7 +843,8 @@ goalieSearch
  -- ^ The list to search
  -> [(Int, Goalie)]
  -- ^ The search results with their corresponding index numbers
-goalieSearch = undefined
+goalieSearch sStr = filter (\(_, goalie) -> sStr `isInfixOf` (goalie^.gName)) .
+  zip [0..]

 -- | Searches a list of goalies for an exact match
 goalieSearchExact