avoid head
Seems like generate works fine to generate a single arbitrary value, I dunno why I used sample' originally.
This commit is contained in:
parent
5a8add5d55
commit
30713ab0d3
1 changed files with 1 additions and 1 deletions
|
@ -190,7 +190,7 @@ runFuzzAction (FuzzPause d) = randomDelay d
|
|||
|
||||
genFuzzAction :: Annex FuzzAction
|
||||
genFuzzAction = do
|
||||
tmpl <- liftIO $ Prelude.head <$> sample' (arbitrary :: Gen FuzzAction)
|
||||
tmpl <- liftIO $ generate (arbitrary :: Gen FuzzAction)
|
||||
-- Fix up template action to make sense in the current repo tree.
|
||||
case tmpl of
|
||||
FuzzAdd _ -> do
|
||||
|
|
Loading…
Reference in a new issue