Change start of day to 6.00am
This commit is contained in:
parent
2f6e46960f
commit
a4b11e1ffa
3 changed files with 3 additions and 3 deletions
|
|
@ -4,7 +4,7 @@ open System
|
|||
open FsCheck.FSharp
|
||||
|
||||
let private isDay (time: DateTime) =
|
||||
time.TimeOfDay >= TimeSpan.FromHours 5.5
|
||||
time.TimeOfDay >= TimeSpan.FromHours 6
|
||||
&& time.TimeOfDay < TimeSpan.FromHours 20.5
|
||||
|
||||
let private isTimeChangedMeetingCondition condition interaction =
|
||||
|
|
|
|||
|
|
@ -9,7 +9,7 @@ type PartOfDay =
|
|||
let getPartOfDay (dateTime: DateTime) =
|
||||
match dateTime with
|
||||
| _ when
|
||||
dateTime.TimeOfDay >= TimeSpan.FromHours 5.5
|
||||
dateTime.TimeOfDay >= TimeSpan.FromHours 6
|
||||
&& dateTime.TimeOfDay < TimeSpan.FromHours 20.5
|
||||
->
|
||||
Day
|
||||
|
|
|
|||
|
|
@ -3,7 +3,7 @@
|
|||
This is an F# program that turns all the lights in our apartment
|
||||
|
||||
* _red_ at 8.30pm in the evening, and
|
||||
* _white_/_yellow_ (depending on the room) at 5.30am in the morning.
|
||||
* _white_/_yellow_ (depending on the room) at 6.00am in the morning.
|
||||
|
||||
`NightLight.Core` is the functional core, and `NightLight` is the imperative shell.
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue