Vector.hs

module YamlUnscrambler.Util.Vector where

import Data.Vector
import YamlUnscrambler.Prelude as Prelude hiding (lookup)

lookupFirst :: [Int] -> Vector a -> Maybe (Int, a)
lookupFirst keys vector =
  getFirst (Prelude.foldMap (\k -> First (fmap (k,) (vector !? k))) keys)