From 0ddcd17fd47fdc7ec0019d6036dd38058ec5a842 Mon Sep 17 00:00:00 2001
From: Sven van Heugten <sven@memcmp.org>
Date: Thu, 8 Jan 2026 21:05:20 +0100
Subject: [PATCH] Get rid of an intermediate variable

---
 NightLight.Core.Tests/NightLightTests.fs | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/NightLight.Core.Tests/NightLightTests.fs b/NightLight.Core.Tests/NightLightTests.fs
index 8a96736..d84ebcb 100644
--- a/NightLight.Core.Tests/NightLightTests.fs
+++ b/NightLight.Core.Tests/NightLightTests.fs
@@ -103,14 +103,10 @@ type NightLightTests() =
     let ``After a new day starts, all lights that have power should be on as long as the 'Off' button isn't pressed``
         ()
         =
-        let genInitialInteractionsListThatEndsWithTransitionToDay =
-            concatGens
-                [ genInitialInteractionsAndEndWith =<< genTimeChangedToNight
-                  genInteractionsExcept isTimeChangedToDay
-                  genTimeChangedToDay |> Gen.map List.singleton ]
-
         concatGens
-            [ genInitialInteractionsListThatEndsWithTransitionToDay
+            [ genInitialInteractionsAndEndWith =<< genTimeChangedToNight
+              genInteractionsExcept isTimeChangedToDay
+              genTimeChangedToDay |> Gen.map List.singleton
               genInteractionsExcept ((=) (HumanInteraction RemotePressedOffButton)) ]
         |> Arb.fromGen
         |> Prop.forAll