Move some types

NightLight.Core/Models.fs

@@ -77,3 +77,13 @@ let remoteControlledLights =
     lights |> Seq.filter (not << _.ControlledWithRemote.IsNonRemote)
 
 let remoteControlFriendlyName = DeviceFriendlyName "Fjärrkontroll"
+
+type internal State =
+    | On
+    | Off
+
+type internal Brightness = Brightness of int
+
+type internal Color =
+    | ColorByCoordinates of float * float
+    | ColorByTemperature of int

NightLight.Core/Moods.fs

@@ -15,12 +15,6 @@ let getDesiredMood room partOfDay =
     | Bedroom, Day -> Yellow
     | _, Night -> Red
 
-type Color =
-    | ColorByCoordinates of float * float
-    | ColorByTemperature of int
-
-type Brightness = Brightness of int
-
 let getDesiredColorAndBrightness bulb mood =
     let white = ColorByCoordinates(0.3227, 0.329)
     let yellow = ColorByTemperature 454

NightLight.Core/ZigbeeCommands.fs

@@ -2,11 +2,6 @@ module internal NightLight.Core.ZigbeeCommands
 
 open System.Text.Json.Nodes
 open NightLight.Core.Models
-open NightLight.Core.Moods
-
-type State =
-    | On
-    | Off
 
 let toZigbeeCommand light payload =
     let topic = $"zigbee2mqtt/{light.FriendlyName.Get}/set"