Remove the remoteControlledLights helper value

NightLight.Core.Tests/LightArbitraries.fs

@@ -15,18 +15,21 @@ type ArbitraryNonRemotelyControlledLight =
 
 type ArbitraryLeftRemotelyControlledLight =
     static member Light() =
-        remoteControlledLights
+        lights
         |> Seq.filter _.ControlledWithRemote.IsRemoteLeft
         |> Gen.elements
         |> Arb.fromGen
 
 type ArbitraryRightRemotelyControlledLight =
     static member Light() =
-        remoteControlledLights
+        lights
         |> Seq.filter _.ControlledWithRemote.IsRemoteRight
         |> Gen.elements
         |> Arb.fromGen
 
 type ArbitraryRemotelyControlledLight =
     static member Light() =
-        remoteControlledLights |> Gen.elements |> Arb.fromGen
+        lights
+        |> Seq.filter (not << _.ControlledWithRemote.IsNonRemote)
+        |> Gen.elements
+        |> Arb.fromGen

NightLight.Core/Models.fs

@@ -73,9 +73,6 @@ let lights =
         Bulb = IkeaBulb
         ControlledWithRemote = RemoteLeft } ]
 
-let remoteControlledLights =
-    lights |> Seq.filter (not << _.ControlledWithRemote.IsNonRemote)
-
 let remoteControlFriendlyName = DeviceFriendlyName "Fjärrkontroll"
 
 type internal State =

NightLight.Core/NightLightStateMachine.fs

@@ -37,7 +37,8 @@ let internal withStateFor (light: Light) (state: State) (oldNightLightState: Nig
         LightToState = Map.add light { oldState with State = state } oldNightLightState.LightToState }
 
 let internal withStateForRemoteControlledLights (state: State) (oldNightLightState: NightLightState) =
-    remoteControlledLights
+    lights
+    |> Seq.filter (not << _.ControlledWithRemote.IsNonRemote)
     |> Seq.fold (fun acc light -> acc |> withStateFor light state) oldNightLightState
 
 let internal withAlarmOff (oldNightLightState: NightLightState) =
@@ -79,8 +80,7 @@ type NightLightStateMachine private (maybeState: NightLightState option) =
                             | PressedOff -> currentState |> withStateForRemoteControlledLights Off
                             | PressedLeft ->
                                 let lightThatShouldBeOn =
-                                    remoteControlledLights
-                                    |> Seq.find (fun light -> light.ControlledWithRemote = RemoteLeft)
+                                    lights |> Seq.find (fun light -> light.ControlledWithRemote = RemoteLeft)
 
                                 currentState
                                 |> withStateForRemoteControlledLights Off