On Sat, Sep 8, 2012 at 5:40 PM, Chaddaï Fouché
<chaddai.fouche@gmail.com> wrote:
> listOfN n g = replicateM n g
>
> mixIntersperse genSep genWord = do
> n <- arbitrary
Probably you should rather use
> Positive n <- arbitrary
No reason to waste your time checking empty lists after all...
> ws <- listOfN n genWord
> ss <- listOfN (n-1) genSep
> return $ interlace ws ss