Merge pull request #8 from AlistairB/cons-snoc-v

Add consV, snocV for building NonEmptyVector

src/Data/Vector/NonEmpty.hs

@@ -90,7 +90,7 @@ module Data.Vector.NonEmpty
 , enumFromTo, enumFromThenTo
 
   -- ** Concatenation
-, cons, snoc, (++), concat, concat1
+, cons, consV, snoc, snocV, (++), concat, concat1
 
   -- ** Restricting memory usage
 , force
@@ -1049,18 +1049,36 @@ enumFromThenTo a0 a1 a2 = fromVector (V.enumFromThenTo a0 a1 a2)
 -- [1,2,3]
 --
 cons :: a -> NonEmptyVector a -> NonEmptyVector a
-cons a (NonEmptyVector as) = NonEmptyVector (V.cons a as)
+cons a (NonEmptyVector as) = consV a as
 {-# INLINE cons #-}
 
+-- | /O(n)/ Prepend an element to a Vector
+--
+-- >>> consV 1 (V.fromList [2,3])
+-- [1,2,3]
+--
+consV :: a -> Vector a -> NonEmptyVector a
+consV a = NonEmptyVector . V.cons a
+{-# INLINE consV #-}
+
 -- | /O(n)/ Append an element
 --
 -- >>> snoc (unsafeFromList [1,2]) 3
 -- [1,2,3]
 --
 snoc :: NonEmptyVector a -> a -> NonEmptyVector a
-snoc (NonEmptyVector as) a = NonEmptyVector (V.snoc as a)
+snoc (NonEmptyVector as) = snocV as
 {-# INLINE snoc #-}
 
+-- | /O(n)/ Append an element to a Vector
+--
+-- >>> snocV (V.fromList [1,2]) 3
+-- [1,2,3]
+--
+snocV :: Vector a -> a -> NonEmptyVector a
+snocV as = NonEmptyVector . V.snoc as
+{-# INLINE snocV #-}
+
 -- | /O(m+n)/ Concatenate two non-empty vectors
 --
 -- >>> (unsafeFromList [1..3]) ++ (unsafeFromList [4..6])