Add missing case to genInteraction

This commit is contained in:
Sven van Heugten 2026-01-14 21:02:12 +01:00
parent d098dfc822
commit 8f53033db4

View file

@ -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