Improve lamp names

This commit is contained in:
Sven van Heugten 2026-02-27 18:20:31 +01:00
parent 4a53489003
commit 1e313ca4ab
5 changed files with 35 additions and 35 deletions

View file

@ -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