Drop liftRnfV function

We can use method from NFData1

Author: Shimuuar

vector/src/Data/Vector.hs

@@ -216,16 +216,13 @@ data Vector a = Vector {-# UNPACK #-} !Int
                        {-# UNPACK #-} !Int
                        {-# UNPACK #-} !(Array a)
 
-liftRnfV :: (a -> ()) -> Vector a -> ()
-liftRnfV elemRnf = foldl' (\_ -> elemRnf) ()
-
 instance NFData a => NFData (Vector a) where
-  rnf = liftRnfV rnf
+  rnf = liftRnf rnf
   {-# INLINEABLE rnf #-}
 
 -- | @since 0.12.1.0
 instance NFData1 Vector where
-  liftRnf = liftRnfV
+  liftRnf elemRnf = foldl' (\_ -> elemRnf) ()
   {-# INLINEABLE liftRnf #-}
 
 instance Show a => Show (Vector a) where

vector/src/Data/Vector/Strict.hs

@@ -227,16 +227,13 @@ newtype Vector a = Vector (V.Vector a)
 -- parameters (e.g. Eq, Ord) and not OK to derive ones where new
 -- vector is created (e.g. Read, Functor)
 
-liftRnfV :: (a -> ()) -> Vector a -> ()
-liftRnfV elemRnf = foldl' (\_ -> elemRnf) ()
-
 instance NFData a => NFData (Vector a) where
-  rnf = liftRnfV rnf
+  rnf = liftRnf rnf
   {-# INLINEABLE rnf #-}
 
 -- | @since 0.13.2.0
 instance NFData1 Vector where
-  liftRnf = liftRnfV
+  liftRnf elemRnf = foldl' (\_ -> elemRnf) ()
   {-# INLINEABLE liftRnf #-}
 
 instance Show a => Show (Vector a) where
@@ -2562,7 +2559,7 @@ toLazy (Vector v) = v
 -- | /O(n)/ Convert lazy array to strict array. This function reduces
 -- each element of vector to WHNF.
 fromLazy :: V.Vector a -> Vector a
-fromLazy vec = liftRnfV (`seq` ()) v `seq` v where v = Vector vec
+fromLazy vec = liftRnf (`seq` ()) v `seq` v where v = Vector vec
 
 
 -- Conversions - Arrays
@@ -2573,7 +2570,7 @@ fromLazy vec = liftRnfV (`seq` ()) v `seq` v where v = Vector vec
 -- @since 0.13.2.0
 fromArray :: Array a -> Vector a
 {-# INLINE fromArray #-}
-fromArray arr = liftRnfV (`seq` ()) vec `seq` vec
+fromArray arr = liftRnf (`seq` ()) vec `seq` vec
   where
     vec = Vector $ V.fromArray arr
 
@@ -2611,7 +2608,7 @@ unsafeFromArraySlice ::
   -> Int -- ^ Length
   -> Vector a
 {-# INLINE unsafeFromArraySlice #-}
-unsafeFromArraySlice arr offset len = liftRnfV (`seq` ()) vec `seq` vec
+unsafeFromArraySlice arr offset len = liftRnf (`seq` ()) vec `seq` vec
   where vec = Vector (V.unsafeFromArraySlice arr offset len)