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

Remove some ambiguity

Browse source
This commit is contained in:
Sven van Heugten 2026-01-05 21:54:34 +01:00
parent 838bbb79a3
commit cef2a20f7a
2 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -7,8 +7,8 @@ open FsToolkit.ErrorHandling
open FSharp.Data
type HumanInteraction =
| LightTurnedOn of Light
| LightTurnedOff of Light
| LightPoweredOn of Light
| LightPoweredOff of Light
type Interaction =
| HumanInteraction of HumanInteraction
@ -30,9 +30,9 @@ type FakeLight(light: Light) =
member _.LightWithState = light, if hasPower then On(brightness, color) else Off
member _.TurnOn() = hasPower <- true
member _.PowerOn() = hasPower <- true
member _.TurnOff() = hasPower <- false
member _.PowerOff() = hasPower <- false
member _.SetBrightness(newBrightness: byte) =
if hasPower then
@ -91,8 +91,8 @@ type FakeHome() =
member _.Interact(interaction: Interaction) =
match interaction with
| HumanInteraction(LightTurnedOn light) ->
friendlyNameToFakeLight[light.FriendlyName].TurnOn()
| HumanInteraction(LightPoweredOn light) ->
friendlyNameToFakeLight[light.FriendlyName].PowerOn()
{ Topic = "zigbee2mqtt/bridge/event"
Payload =
@ -102,7 +102,7 @@ type FakeHome() =
}}" }
|> ReceivedZigbeeEvent
|> onEventPublished.Trigger
| HumanInteraction(LightTurnedOff light) -> friendlyNameToFakeLight[light.FriendlyName].TurnOff()
| HumanInteraction(LightPoweredOff light) -> friendlyNameToFakeLight[light.FriendlyName].PowerOff()
| TimeChanged newTime -> newTime |> Event.TimeChanged |> onEventPublished.Trigger
type FakeHome with