makeFilters selectors count tail =
  let
    makeFilters' :: [Selector] -> [Filter] -> [Filter]
    makeFilters' [] tail = tail
    makeFilters' (selector : rest) tail =
      makeFilters' rest (Filter { filterSuites = Set.singleton (show count),
                                  filterSelector = selector } : tail)
  in
    makeFilters' selectors tail
makeFilters selectors count tail =
  let
    makeFilters' :: [Selector] -> [Filter] -> [Filter]
    makeFilters' [] tail = tail
    makeFilters' (selector : rest) tail =
      makeFilters' rest (Filter { filterSuites = Set.singleton (show count),
                                  filterSelector = selector } : tail)
  in
    makeFilters' selectors tail
makeFilters selectors count tail =
  let
    makeFilters' :: [Selector] -> [Filter] -> [Filter]
    makeFilters' [] tail = tail
    makeFilters' (selector : rest) tail =
      makeFilters' rest (Filter { filterSuites = Set.singleton (show count),
                                  filterSelector = selector } : tail)
  in
    makeFilters' selectors tail