18 lines
316 B
FSharp
18 lines
316 B
FSharp
module internal NightLight.Core.Lights
|
|
|
|
open NightLight.Core.Moods
|
|
|
|
type Bulb =
|
|
| IkeaBulb
|
|
| PaulmannBulb
|
|
|
|
type Color =
|
|
| ColorByCoordinates of float * float
|
|
| ColorByTemperature of int
|
|
|
|
type Brightness = Brightness of int
|
|
|
|
type Light =
|
|
{ FriendlyName: string
|
|
Room: Room
|
|
Bulb: Bulb }
|