Merge pull request #62 from purescript/fix-shadow

Fix shadowed variable warnings

Author: garyb

src/Test/QuickCheck.purs

@@ -75,8 +75,8 @@ quickCheck' n prop = do
 -- | well as the number tests that should be run.
 quickCheckWithSeed
   :: forall eff prop. Testable prop => Seed -> Int -> prop -> QC eff Unit
-quickCheckWithSeed seed n prop = do
-  let result = tailRec loop { seed, index: 0, successes: 0, firstFailure: mempty }
+quickCheckWithSeed initialSeed n prop = do
+  let result = tailRec loop { seed: initialSeed, index: 0, successes: 0, firstFailure: mempty }
   log $ show result.successes <> "/" <> show n <> " test(s) passed."
   for_ result.firstFailure \{ index, message, seed: failureSeed } ->
     throwException $ error

src/Test/QuickCheck/Gen.purs

@@ -138,7 +138,7 @@ frequency x xs = let
     xxs   = Cons x xs
     total = unwrap $ fold (map (Additive <<< fst) xxs :: List (Additive Number))
     pick n d Nil = d
-    pick n d (Cons (Tuple k x) xs) = if n <= k then x else pick (n - k) d xs
+    pick n d (Cons (Tuple k x') xs') = if n <= k then x' else pick (n - k) d xs'
   in do
     n <- choose zero total
     pick n (snd x) xxs