Add fromListN
[darcs-mirrors/vector.git] / Data / Vector / Fusion / Stream.hs
index db25db4..56148ab 100644 (file)
@@ -67,7 +67,7 @@ module Data.Vector.Fusion.Stream (
   enumFromStepN, enumFromTo, enumFromThenTo,
 
   -- * Conversions
-  toList, fromList, liftStream,
+  toList, fromList, fromListN, liftStream,
 
   -- * Monadic combinators
   mapM_, foldM, fold1M, foldM', fold1M',
@@ -570,3 +570,10 @@ fromList :: [a] -> Stream a
 {-# INLINE fromList #-}
 fromList = M.fromList
 
+-- | Create a 'Stream' from the first @n@ elements of a list
+--
+-- > fromListN n xs = fromList (take n xs)
+fromListN :: Int -> [a] -> Stream a
+{-# INLINE fromListN #-}
+fromListN = M.fromListN
+