Improve lamp names
This commit is contained in:
parent
4a53489003
commit
1e313ca4ab
5 changed files with 35 additions and 35 deletions
|
|
@ -10,29 +10,29 @@ type ArbitraryNonRemotelyControlledLight =
|
|||
static member Light() =
|
||||
lights
|
||||
|> Seq.filter (fun light ->
|
||||
light = VardagsrumVagglampa
|
||||
|| light = VardagsrumGolvlampa
|
||||
|| light = BadrumTaklampa)
|
||||
light = LivingRoomWallLamp
|
||||
|| light = LivingRoomFloorLamp
|
||||
|| light = BathroomCeilingLamp)
|
||||
|> Gen.elements
|
||||
|> Arb.fromGen
|
||||
|
||||
type ArbitraryLeftRemotelyControlledLight =
|
||||
static member Light() =
|
||||
lights
|
||||
|> Seq.filter (fun light -> light = SovrumNattduksbordlampa)
|
||||
|> Seq.filter (fun light -> light = LeftBedroomLamp)
|
||||
|> Gen.elements
|
||||
|> Arb.fromGen
|
||||
|
||||
type ArbitraryRightRemotelyControlledLight =
|
||||
static member Light() =
|
||||
lights
|
||||
|> Seq.filter (fun light -> light = VardagsrumFonsterlampa)
|
||||
|> Seq.filter (fun light -> light = RightBedroomLamp)
|
||||
|> Gen.elements
|
||||
|> Arb.fromGen
|
||||
|
||||
type ArbitraryRemotelyControlledLight =
|
||||
static member Light() =
|
||||
lights
|
||||
|> Seq.filter (fun light -> light = VardagsrumFonsterlampa || light = SovrumNattduksbordlampa)
|
||||
|> Seq.filter (fun light -> light = RightBedroomLamp || light = LeftBedroomLamp)
|
||||
|> Gen.elements
|
||||
|> Arb.fromGen
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue