svenvanheugten/night-light
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Change start of day to 6.00am

Browse source
This commit is contained in:
Sven van Heugten 2026-01-10 21:09:44 +01:00
parent 2f6e46960f
commit a4b11e1ffa
3 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
NightLight.Core.Tests/TimeChangedGenerators.fs
View file

@ -4,7 +4,7 @@ open System
open FsCheck.FSharp open FsCheck.FSharp
let private isDay (time: DateTime) = let private isDay (time: DateTime) =
time.TimeOfDay >= TimeSpan.FromHours 5.5 time.TimeOfDay >= TimeSpan.FromHours 6
&& time.TimeOfDay < TimeSpan.FromHours 20.5 && time.TimeOfDay < TimeSpan.FromHours 20.5
let private isTimeChangedMeetingCondition condition interaction = let private isTimeChangedMeetingCondition condition interaction =

2
NightLight.Core/PartsOfDay.fs
View file

@ -9,7 +9,7 @@ type PartOfDay =
let getPartOfDay (dateTime: DateTime) = let getPartOfDay (dateTime: DateTime) =
match dateTime with match dateTime with
| _ when | _ when
dateTime.TimeOfDay >= TimeSpan.FromHours 5.5 dateTime.TimeOfDay >= TimeSpan.FromHours 6
&& dateTime.TimeOfDay < TimeSpan.FromHours 20.5 && dateTime.TimeOfDay < TimeSpan.FromHours 20.5
-> ->
Day Day

2
README.md
View file

@ -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 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. `NightLight.Core` is the functional core, and `NightLight` is the imperative shell.