Fix warnings revealed by v0.14.1 PS release; export functions (#125)

* Fix warnings revealed by v0.14.1 PS release; export functions

Exported functions:
- enum
- randomSampleOne

* Update changelog

Author: JordanMartinez

CHANGELOG.md

@@ -7,10 +7,12 @@ Notable changes to this project are documented in this file. The format is based
 Breaking changes:
 
 New features:
+- Export `enum` and `randomSampleOne` (#125 by @JordanMartinez)
 
 Bugfixes:
 
 Other improvements:
+- Fix warning revealed by v0.14.1 PS release (#125 by @JordanMartinez)
 
 ## [v7.0.0](https://github.com/purescript/purescript-quickcheck/releases/tag/v7.0.0) - 2021-02-26
 

src/Test/QuickCheck/Gen.purs

@@ -17,6 +17,7 @@ module Test.QuickCheck.Gen
   , frequency
   , arrayOf
   , arrayOf1
+  , enum
   , listOf
   , vectorOf
   , elements
@@ -28,6 +29,7 @@ module Test.QuickCheck.Gen
   , sample
   , randomSample
   , randomSample'
+  , randomSampleOne
   ) where
 
 import Prelude
@@ -164,7 +166,7 @@ frequency :: forall a. NonEmptyList (Tuple Number (Gen a)) -> Gen a
 frequency = NEL.uncons >>> \{ head: x, tail: xs } -> let
     xxs   = Cons x xs
     total = unwrap $ fold (map (Additive <<< fst) xxs :: List (Additive Number))
-    pick n d Nil = d
+    pick _ d Nil = d
     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