svenvanheugten/night-light
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Construct light list dynamically

Browse source
This commit is contained in:
Sven van Heugten 2026-02-27 18:23:49 +01:00
parent 1e313ca4ab
commit 5728da8e6c
1 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

9
NightLight.Core/Models.fs
View file

@ -1,6 +1,7 @@
module NightLight.Core.Models module NightLight.Core.Models
open System open System
open FSharp.Reflection
type Message = { Topic: string; Payload: string } type Message = { Topic: string; Payload: string }
@ -76,11 +77,9 @@ let lightProps light =
Bulb = IkeaBulb } Bulb = IkeaBulb }
let lights = let lights =
[ RightBedroomLamp FSharpType.GetUnionCases typeof<Light>
LivingRoomWallLamp |> Array.map (fun case -> FSharpValue.MakeUnion(case, [||]) :?> Light)
LivingRoomFloorLamp |> Array.toList
BathroomCeilingLamp
LeftBedroomLamp ]
let remoteControlFriendlyName = DeviceFriendlyName "Fjärrkontroll" let remoteControlFriendlyName = DeviceFriendlyName "Fjärrkontroll"