suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added a check for an empty list to oneofL

Browse Source
This commit is contained in:
Neil Brown 2008-02-05 22:18:22 +00:00
parent 416e385017
commit c001455fc2
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
common/FlowGraphTest.hs
View File

@ -459,6 +459,7 @@ nextIdT = modify' incId
-- | A function similar to the QuickCheck oneof function, that works on GenL stuff rather than Gen. -- | A function similar to the QuickCheck oneof function, that works on GenL stuff rather than Gen.
oneofL :: [GenL a] -> GenL a oneofL :: [GenL a] -> GenL a
oneofL [] = fail "Empty list fed to oneofL"
oneofL gs = do i <- lift $ choose (0,length gs-1) oneofL gs = do i <- lift $ choose (0,length gs-1)
gs !! i gs !! i