module AesonValueParser.Vector where

import AesonValueParser.Prelude hiding (Vector)
import qualified Data.Vector.Fusion.Bundle.Monadic as BundleM
import Data.Vector.Generic

{-# INLINE ifoldrM #-}
ifoldrM :: (Vector v a, Monad m) => (Int -> a -> b -> m b) -> b -> v a -> m b
ifoldrM f z = BundleM.foldrM (uncurry f) z . BundleM.indexed . BundleM.fromVector