Stop hardcoding elements
This commit is contained in:
parent
5d8406d8ad
commit
c09915ac60
1 changed files with 4 additions and 6 deletions
|
|
@ -37,14 +37,12 @@ let private genHumanInteraction =
|
|||
|
||||
let private genRemoteInteraction =
|
||||
Gen.oneof
|
||||
[ Gen.elements [ RemotePressedOnButton; RemotePressedOffButton ]
|
||||
[ ArbMap.defaults
|
||||
|> ArbMap.generate<BedroomControllingRemoteInteraction>
|
||||
|> Gen.map BedroomControllingRemoteInteraction
|
||||
|
||||
Gen.elements
|
||||
[ RemotePressedLeftButton
|
||||
RemotePressedRightButton
|
||||
LivingRoomRemotePressedOnButton
|
||||
LivingRoomRemotePressedOffButton ]
|
||||
ArbMap.defaults
|
||||
|> ArbMap.generate<LivingRoomControllingRemoteAction>
|
||||
|> Gen.map LivingRoomControllingRemoteInteraction ]
|
||||
|
||||
let private genInteraction =
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue