@@ -324,7 +324,7 @@ sum = foldl (+) 0 id
325-- | Determine the product of all elements of a stream of numbers
325-- | Determine the product of all elements of a stream of numbers
326product :: (Streaming t, Monad m, Num a) => t m a -> m a
326product :: (Streaming t, Monad m, Num a) => t m a -> m a
327−product = foldl (*) 0 id
327+product = foldl (*) 1 id
329-- | Extract the first element of the stream, if any.
329-- | Extract the first element of the stream, if any.
330head :: (Streaming t, Monad m) => t m a -> m (Maybe a)
330head :: (Streaming t, Monad m) => t m a -> m (Maybe a)