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

Invert helper function

Browse source
This commit is contained in:
Sven van Heugten 2026-01-05 23:04:18 +01:00
parent b9a318a5f1
commit 9bc76cdf8e
2 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
NightLight.Core.Tests/InteractionListGenerators.fs
View file

@ -28,12 +28,12 @@ let private genInteractionsListThatStartsWithTimeChanged =
return firstInteraction :: remainingInteractions
}
let genInteractionListContaining containingInteraction afterFilter =
let genInteractionListContaining containingInteraction disqualifiedAfter =
gen {
let genNonTrivialList =
gen {
let! before = genInteractionsListThatStartsWithTimeChanged
let! after = Gen.listOf (genInteraction |> Gen.filter afterFilter)
let! after = Gen.listOf (genInteraction |> Gen.filter (not << disqualifiedAfter))
return before @ containingInteraction :: after
}