
9 Sep
2012
9 Sep
'12
4:44 a.m.
On Sun, Sep 9, 2012 at 1:29 AM, Iain Nicol
mixIntersperse :: Gen String -> Gen String -> Gen [String] mixIntersperse genSep genWord = sized (sequence . intersperse genSep . (`replicate` genWord))
Very nice :-) (And stupid of me not to think of creating a list of Gen directly !) -- Jedaï