Remove some ambiguity
This commit is contained in:
parent
838bbb79a3
commit
cef2a20f7a
2 changed files with 8 additions and 8 deletions
|
|
@ -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)
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue