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
|
|> Gen.map RemoteInteraction
|
||||||
|
|
||||||
let private genInteraction biasTowardsLight =
|
let private genInteraction biasTowardsLight =
|
||||||
Gen.oneof [ genTimeChanged; genHumanInteraction biasTowardsLight ]
|
Gen.oneof [ genTimeChanged; genHumanInteraction biasTowardsLight; genRemoteInteraction ]
|
||||||
|
|
||||||
let genRandomInteractionsExcept biasTowardsLight disqualifier =
|
let genRandomInteractionsExcept biasTowardsLight disqualifier =
|
||||||
genInteraction biasTowardsLight
|
genInteraction biasTowardsLight
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue