Add missing case to genInteraction
This commit is contained in:
parent
d098dfc822
commit
8f53033db4
1 changed files with 1 additions and 1 deletions
|
|
@ -15,7 +15,7 @@ let private genRemoteInteraction =
|
|||
|> Gen.map RemoteInteraction
|
||||
|
||||
let private genInteraction biasTowardsLight =
|
||||
Gen.oneof [ genTimeChanged; genHumanInteraction biasTowardsLight ]
|
||||
Gen.oneof [ genTimeChanged; genHumanInteraction biasTowardsLight; genRemoteInteraction ]
|
||||
|
||||
let genRandomInteractionsExcept biasTowardsLight disqualifier =
|
||||
genInteraction biasTowardsLight
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue