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

Automatically turn on lights at dawn

Browse source
This commit is contained in:
Sven van Heugten 2026-01-06 09:14:14 +01:00
parent f42a8747dd
commit fd103125e3
6 changed files with 97 additions and 58 deletions
Download patch file Download diff file Expand all files Collapse all files

9
NightLight.Core.Tests/GenHelpers.fs Normal file
View file

@ -0,0 +1,9 @@
module NightLight.Core.Tests.GenHelpers
open FsCheck
open FsCheck.FSharp
let concatGens (gens: Gen<'a list> list) : Gen<'a list> =
match gens with
| [] -> Gen.constant []
| first :: rest -> rest |> List.fold (fun accGen g -> Gen.map2 (@) accGen g) first