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

Strongly type the device FriendlyName

Browse source
This commit is contained in:
Sven van Heugten 2026-01-05 17:51:57 +01:00
parent 8cc59c4738
commit 89a8c599c7
4 changed files with 23 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

8
NightLight.Core.Tests/FakeHome.fs
View file

@ -59,7 +59,11 @@ type FakeHome() =
option {
let! friendlyName =
let m = Regex.Match(command.Topic, "^zigbee2mqtt/(.+)/set$")
if m.Success then Some m.Groups.[1].Value else None
if m.Success then
Some(DeviceFriendlyName m.Groups.[1].Value)
else
None
let! fakeLight = Map.tryFind friendlyName friendlyNameToFakeLight
@ -94,7 +98,7 @@ type FakeHome() =
Payload =
$@"{{
""type"": ""device_announce"",
""data"": {{ ""friendly_name"": ""{light.FriendlyName}"" }}
""data"": {{ ""friendly_name"": ""{light.FriendlyName.Get}"" }}
}}" }
|> ReceivedZigbeeEvent
|> onEventPublished.Trigger