rework. change is functionally wrong, but the test passes and perform… #210

Job	Run time
Prepare the run	44s
alpine-linux-x64	0s
docs / build (debug)	2m 32s
linux-x64 / build (debug)	3m 36s
linux-x64-hs-minimal / build (debug)	3m 37s
linux-x64 / build (release)	3m 35s
linux-cross-compile / build (aarch64)	3m 39s
linux-x64-hs-nopch / build (debug)	3m 34s
linux-cross-compile / build (arm)	3m 34s
linux-x64-hs-optimized / build (debug)	3m 35s
linux-cross-compile / build (s390x)	3m 34s
linux-cross-compile / build (ppc64le)	3m 33s
linux-x64-hs-zero / build (debug)	3m 34s
linux-cross-compile / build (riscv64)	3m 33s
linux-x86-hs / build (debug)	3m 33s
macos-aarch64 / build (debug)	56s
linux-x86-hs / build (release)	3m 33s
macos-aarch64 / build (release)	1m 0s
macos-x64 / build (debug)	3m 41s
windows-aarch64 / build (debug)	3m 29s
windows-aarch64 / build (release)	3m 31s
macos-x64 / build (release)	3m 39s
windows-x64 / build (debug)	2m 22s
windows-x64 / build (release)	2m 11s
macos-aarch64	0s
windows-x64	1s
linux-x64	1s
macos-x64	1s
	1h 10m 38s

Provide feedback