Get rid of an intermediate variable

2026-01-08 21:05:20 +01:00 · 2026-01-08 21:05:20 +01:00 · 0ddcd17fd4
commit 0ddcd17fd4
parent 2c051c0b3d
1 changed files with 3 additions and 7 deletions
--- 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
+              genTimeChangedToDay |> Gen.map List.singleton
              genInteractionsExcept ((=) (HumanInteraction RemotePressedOffButton)) ]
        |> Arb.fromGen
        |> Prop.forAll