Add fromListN
[darcs-mirrors/vector.git] / Data / Vector.hs
index 49349a6..31fff91 100644 (file)
@@ -114,7 +114,7 @@ module Data.Vector (
   enumFromN, enumFromStepN, enumFromTo, enumFromThenTo,
 
   -- * Conversion to/from lists
   enumFromN, enumFromStepN, enumFromTo, enumFromThenTo,
 
   -- * Conversion to/from lists
-  toList, fromList
+  toList, fromList, fromListN
 ) where
 
 import qualified Data.Vector.Generic as G
 ) where
 
 import qualified Data.Vector.Generic as G
@@ -981,3 +981,10 @@ fromList :: [a] -> Vector a
 {-# INLINE fromList #-}
 fromList = G.fromList
 
 {-# INLINE fromList #-}
 fromList = G.fromList
 
+-- | Convert the first @n@ elements of a list to a vector
+--
+-- > fromListN n xs = fromList (take n xs)
+fromListN :: Int -> [a] -> Vector a
+{-# INLINE fromListN #-}
+fromListN = G.fromListN
+