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

Add some synctatic sugar

Browse source
This commit is contained in:
Sven van Heugten 2026-01-08 20:58:24 +01:00
parent 0033fed73e
commit 2c051c0b3d
2 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -7,3 +7,5 @@ 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
let (=<<) m f = Gen.bind m f