20 lines
348 B
FSharp
20 lines
348 B
FSharp
module internal NightLight.Moods
|
|
|
|
open NightLight.PartsOfDay
|
|
|
|
type Mood =
|
|
| White
|
|
| Yellow
|
|
| Red
|
|
|
|
type Room =
|
|
| Bathroom
|
|
| LivingRoom
|
|
| Bedroom
|
|
|
|
let getDesiredMood room partOfDay =
|
|
match room, partOfDay with
|
|
| Bathroom, Day -> White
|
|
| LivingRoom, Day -> Yellow
|
|
| Bedroom, Day -> Yellow
|
|
| _, Night -> Red
|