module internal NightLight.Lights open NightLight.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 }