60 lines
1.4 KiB
FSharp
60 lines
1.4 KiB
FSharp
module NightLight.Core.Models
|
|
|
|
open System
|
|
|
|
type Message = { Topic: string; Payload: string }
|
|
|
|
type Event =
|
|
| ReceivedZigbeeEvent of Message
|
|
| TimeChanged of DateTime
|
|
|
|
type ParseZigbeeEventError =
|
|
| InvalidJson
|
|
| MissingTypeField
|
|
| MissingDataField
|
|
| MissingFriendlyNameField
|
|
| InvalidTypeField
|
|
| InvalidFriendlyNameField
|
|
| UnknownType
|
|
|
|
type OnEventReceivedError =
|
|
| ParseZigbeeEventError of ParseZigbeeEventError
|
|
| TimeIsUnknown
|
|
|
|
type Room =
|
|
| Bathroom
|
|
| LivingRoom
|
|
| Bedroom
|
|
|
|
type Bulb =
|
|
| IkeaBulb
|
|
| PaulmannBulb
|
|
|
|
type DeviceFriendlyName =
|
|
| DeviceFriendlyName of string
|
|
|
|
member this.Get =
|
|
match this with
|
|
| DeviceFriendlyName deviceFriendlyName -> deviceFriendlyName
|
|
|
|
type Light =
|
|
{ FriendlyName: DeviceFriendlyName
|
|
Room: Room
|
|
Bulb: Bulb }
|
|
|
|
let lights =
|
|
[ { FriendlyName = DeviceFriendlyName "Vardagsrum - Fönsterlampa"
|
|
Room = LivingRoom
|
|
Bulb = IkeaBulb }
|
|
{ FriendlyName = DeviceFriendlyName "Vardagsrum - Vägglampa"
|
|
Room = LivingRoom
|
|
Bulb = PaulmannBulb }
|
|
{ FriendlyName = DeviceFriendlyName "Vardagsrum - Golvlampa"
|
|
Room = LivingRoom
|
|
Bulb = PaulmannBulb }
|
|
{ FriendlyName = DeviceFriendlyName "Badrum - Taklampa"
|
|
Room = Bathroom
|
|
Bulb = IkeaBulb }
|
|
{ FriendlyName = DeviceFriendlyName "Sovrum - Nattduksbordlampa"
|
|
Room = Bedroom
|
|
Bulb = IkeaBulb } ]
|