Rename LCG module and array functions.

Author: paf31

README.md

@@ -84,7 +84,7 @@
     quickCheckPure :: forall prop. (Testable prop) => Number -> Number -> prop -> [Result]
 
 
-## Module Test.QuickCheck.LCG
+## Module Test.QuickCheck.Gen
 
 ### Types
 
@@ -114,6 +114,10 @@
 
 ### Values
 
+    arrayOf :: forall a. Gen a -> Gen [a]
+
+    arrayOf1 :: forall a. Gen a -> Gen (Tuple a [a])
+
     choose :: Number -> Number -> Gen Number
 
     chooseInt :: Number -> Number -> Gen Number
@@ -124,10 +128,6 @@
 
     frequency :: forall a. Tuple Number (Gen a) -> [Tuple Number (Gen a)] -> Gen a
 
-    listOf :: forall a. Gen a -> Gen [a]
-
-    listOf1 :: forall a. Gen a -> Gen (Tuple a [a])
-
     oneOf :: forall a. Gen a -> [Gen a] -> Gen a
 
     perturbGen :: forall a. Number -> Gen a -> Gen a

src/Test/QuickCheck.purs

@@ -15,7 +15,7 @@ import qualified Data.Char as S
 import qualified Data.String as S
 import qualified Data.String.Unsafe as SU
 
-import Test.QuickCheck.LCG
+import Test.QuickCheck.Gen
 
 newtype AlphaNumString = AlphaNumString String
 

src/Test/QuickCheck/LCG.purs src/Test/QuickCheck/Gen.purssrc/Test/QuickCheck/LCG.purs renamed to src/Test/QuickCheck/Gen.purs

@@ -1,4 +1,4 @@
-module Test.QuickCheck.LCG
+module Test.QuickCheck.Gen
   (
     Gen(),
     GenState(),
@@ -14,8 +14,8 @@ module Test.QuickCheck.LCG
     chooseInt,
     oneOf,
     frequency,
-    listOf,
-    listOf1,
+    arrayOf,
+    arrayOf1,
     vectorOf,
     elements,
     runGen,
@@ -84,13 +84,13 @@ frequency x xs = let
     n <- chooseInt 1 total
     pick n (snd x) xxs
 
-listOf :: forall a. Gen a -> Gen [a]
-listOf g = sized $ \n ->
+arrayOf :: forall a. Gen a -> Gen [a]
+arrayOf g = sized $ \n ->
   do k <- chooseInt 0 n
      vectorOf k g
 
-listOf1 :: forall a. Gen a -> Gen (Tuple a [a])
-listOf1 g = sized $ \n ->
+arrayOf1 :: forall a. Gen a -> Gen (Tuple a [a])
+arrayOf1 g = sized $ \n ->
   do k  <- chooseInt 0 n
      x  <- g
      xs <- vectorOf (k - 1) g
@@ -171,4 +171,4 @@ instance bindGen :: Bind Gen where
   (>>=) (Gen f) g = Gen $ \s -> case f s of
     { value = value, state = state } -> runGen (g value) state
 
-instance monadGen :: Monad Gen
+instance monadGen :: Monad Gen