globIndices :: Vector a -> NonEmpty GlobItem -> [Int]
globIndices vec glob =
  map (read . toS)
    . filter (match glob)
    . map ((toS . show) :: Int -> Text)
    . range
    $ (0, length vec)
globIndices :: Vector a -> NonEmpty GlobItem -> [Int]
globIndices vec glob =
  map (read . toS)
    . filter (match glob)
    . map ((toS . show) :: Int -> Text)
    . range
    $ (0, length vec)
globIndices vec glob =
  map (read . toS)
    . filter (match glob)
    . map ((toS . show) :: Int -> Text)
    . range
    $ (0, length vec)