Remove some ambiguity

This commit is contained in:
Sven van Heugten 2026-01-05 21:54:34 +01:00
parent 838bbb79a3
commit cef2a20f7a
2 changed files with 8 additions and 8 deletions

View file

@ -10,7 +10,7 @@ let private genTimeChangedInteraction =
let private genHumanInteraction =
Gen.elements lights
|> Gen.bind (fun light ->
[ LightTurnedOn light; LightTurnedOff light ]
[ LightPoweredOn light; LightPoweredOff light ]
|> Gen.elements
|> Gen.map Interaction.HumanInteraction)