Implement the Right button on the bedroom remote
This commit is contained in:
parent
b9fc8bfaea
commit
d3a00b8a77
5 changed files with 74 additions and 64 deletions
|
|
@ -36,7 +36,11 @@ let private genHumanInteraction =
|
|||
|> Gen.map Interaction.HumanInteraction
|
||||
|
||||
let private genRemoteInteraction =
|
||||
Gen.elements [ RemotePressedOnButton; RemotePressedOffButton; RemotePressedLeftButton ]
|
||||
Gen.elements
|
||||
[ RemotePressedOnButton
|
||||
RemotePressedOffButton
|
||||
RemotePressedLeftButton
|
||||
RemotePressedRightButton ]
|
||||
|> Gen.map RemoteInteraction
|
||||
|
||||
let private genInteraction =
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue