Improve lamp names
This commit is contained in:
parent
4a53489003
commit
1e313ca4ab
5 changed files with 35 additions and 35 deletions
|
|
@ -150,14 +150,14 @@ type FakeHome with
|
|||
member this.NonRemotelyControlledLightStates =
|
||||
this.LightStates
|
||||
|> Seq.filter (fun (light, _) ->
|
||||
light = VardagsrumVagglampa
|
||||
|| light = VardagsrumGolvlampa
|
||||
|| light = BadrumTaklampa)
|
||||
light = LivingRoomWallLamp
|
||||
|| light = LivingRoomFloorLamp
|
||||
|| light = BathroomCeilingLamp)
|
||||
|> Seq.toList
|
||||
|
||||
member this.RemotelyControlledLightStates =
|
||||
this.LightStates
|
||||
|> Seq.filter (fun (light, _) -> light = VardagsrumFonsterlampa || light = SovrumNattduksbordlampa)
|
||||
|> Seq.filter (fun (light, _) -> light = RightBedroomLamp || light = LeftBedroomLamp)
|
||||
|> Seq.toList
|
||||
|
||||
member this.Label =
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue