Change start of day
This commit is contained in:
parent
90fe37eacc
commit
9b2d17984f
3 changed files with 4 additions and 4 deletions
|
|
@ -6,8 +6,8 @@ type PartOfDay =
|
||||||
| Day
|
| Day
|
||||||
| Night
|
| Night
|
||||||
|
|
||||||
let startOfDay = TimeSpan.FromHours 6
|
let startOfDay = TimeSpan.FromHours 5.25
|
||||||
let endOfAlarm = TimeSpan.FromHours 6.25
|
let endOfAlarm = TimeSpan.FromHours 5.50
|
||||||
let endOfDay = TimeSpan.FromHours 20.5
|
let endOfDay = TimeSpan.FromHours 20.5
|
||||||
|
|
||||||
let getPartOfDay (dateTime: DateTime) =
|
let getPartOfDay (dateTime: DateTime) =
|
||||||
|
|
|
||||||
|
|
@ -6,7 +6,7 @@ type PartOfDay =
|
||||||
| Day
|
| Day
|
||||||
| Night
|
| Night
|
||||||
|
|
||||||
let private startOfDay = TimeSpan.FromHours 6
|
let private startOfDay = TimeSpan.FromHours 5.25
|
||||||
let private endOfDay = TimeSpan.FromHours 20.5
|
let private endOfDay = TimeSpan.FromHours 20.5
|
||||||
|
|
||||||
let getPartOfDay (dateTime: DateTime) =
|
let getPartOfDay (dateTime: DateTime) =
|
||||||
|
|
|
||||||
|
|
@ -3,7 +3,7 @@
|
||||||
This is an F# program that turns all the lights in our apartment
|
This is an F# program that turns all the lights in our apartment
|
||||||
|
|
||||||
* _red_ at 8.30pm in the evening, and
|
* _red_ at 8.30pm in the evening, and
|
||||||
* _white_/_yellow_ (depending on the room) at 6.00am in the morning.
|
* _white_/_yellow_ (depending on the room) at 5.15am in the morning.
|
||||||
|
|
||||||
`NightLight.Core` is the functional core, and `NightLight` is the imperative shell.
|
`NightLight.Core` is the functional core, and `NightLight` is the imperative shell.
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue