diff --git a/deferred-folds.cabal b/deferred-folds.cabal
--- a/deferred-folds.cabal
+++ b/deferred-folds.cabal
@@ -1,5 +1,5 @@
 name: deferred-folds
-version: 0.9.3
+version: 0.9.4
 category: Folding
 synopsis: Abstractions over deferred folds
 description:
diff --git a/library/DeferredFolds/Defs/Unfoldr.hs b/library/DeferredFolds/Defs/Unfoldr.hs
--- a/library/DeferredFolds/Defs/Unfoldr.hs
+++ b/library/DeferredFolds/Defs/Unfoldr.hs
@@ -135,6 +135,11 @@
     else state
   in loop 0
 
+{-| Elements of a vector -}
+{-# INLINE vector #-}
+vector :: GenericVector.Vector vector a => vector a -> Unfoldr a
+vector vector = Unfoldr $ \ step state -> GenericVector.foldr step state vector
+
 {-| Elements of a vector coming paired with indices -}
 {-# INLINE vectorWithIndices #-}
 vectorWithIndices :: GenericVector.Vector vector a => vector a -> Unfoldr (Int, a)