Fix name shadowing warnings

haskell · Mar 3, 2022 · fa29631 · fa29631
1 parent e7126f4
commit fa29631
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/Data/ByteString/Internal.hs b/Data/ByteString/Internal.hs
@@ -340,16 +340,16 @@ packChars cs = unsafePackLenChars (List.length cs) cs
 
 unsafePackLenBytes :: Int -> [Word8] -> ByteString
 unsafePackLenBytes len xs =
-    unsafeCreate len $ \p -> foldr
+    unsafeCreate len $ \p0 -> foldr
       (\x go p -> poke p x >> go (p `plusPtr` 1))
-      (\_ -> return ()) xs p
+      (\_ -> return ()) xs p0
 {-# INLINE unsafePackLenBytes #-}
 
 unsafePackLenChars :: Int -> [Char] -> ByteString
 unsafePackLenChars len cs =
-    unsafeCreate len $ \p -> foldr
+    unsafeCreate len $ \p0 -> foldr
       (\x go p -> poke p (c2w x) >> go (p `plusPtr` 1))
-      (\_ -> return ()) cs p
+      (\_ -> return ()) cs p0
 {-# INLINE unsafePackLenChars #-}