From 555df32c5dde87e47580f3b16e7c80474cb9a042 Mon Sep 17 00:00:00 2001
From: Eric Mertens <emertens@gmail.com>
Date: Fri, 21 Aug 2015 09:05:45 -0700
Subject: [PATCH] Eliminate some shadowing

---
 Data/ByteString/Lazy/UTF8.hs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/Data/ByteString/Lazy/UTF8.hs b/Data/ByteString/Lazy/UTF8.hs
index 5a513fb..34b18ac 100644
--- a/Data/ByteString/Lazy/UTF8.hs
+++ b/Data/ByteString/Lazy/UTF8.hs
@@ -56,17 +56,17 @@ import Codec.Binary.UTF8.Generic (buncons)
 
 -- | Converts a Haskell string into a UTF8 encoded bytestring.
 fromString :: String -> B.ByteString
-fromString [] = B.empty
-fromString xs = packChunks 32 xs
+fromString []  = B.empty
+fromString xs0 = packChunks 32 xs0
   where
     packChunks n xs = case packUptoLenBytes n xs of
-        (bs, []) -> B.chunk bs B.Empty
-        (bs, xs) -> B.Chunk bs (packChunks (min (n * 2) B.smallChunkSize) xs)
+        (bs, [] ) -> B.chunk bs B.Empty
+        (bs, xs') -> B.Chunk bs (packChunks (min (n * 2) B.smallChunkSize) xs')
 
     packUptoLenBytes :: Int -> String -> (S.ByteString, String)
     packUptoLenBytes len xs = unsafeCreateUptoN' len $ \ptr -> do
-        (end, xs) <- go ptr (ptr `plusPtr` (len-4)) xs
-        return (end `minusPtr` ptr, xs)
+        (end, xs') <- go ptr (ptr `plusPtr` (len-4)) xs
+        return (end `minusPtr` ptr, xs')
 
     -- end is the last position at which you can write a whole 4 byte sequence safely
     go :: Ptr Word8 -> Ptr Word8 -> String -> IO (Ptr Word8, String)
-- 
GitLab