Refactoring some code and comments. #153

Job	Run time
Prepare the run	51s
alpine-linux-x64	0s
docs / build (debug)	2m 32s
linux-cross-compile / build (aarch64)	23m 43s
linux-x64-hs-minimal / build (debug)	7m 14s
linux-cross-compile / build (arm)	21m 37s
linux-x64 / build (debug)	23m 42s
linux-cross-compile / build (s390x)	21m 42s
linux-x64 / build (release)	23m 44s
linux-cross-compile / build (ppc64le)	23m 43s
linux-x64-hs-nopch / build (debug)	22m 4s
linux-cross-compile / build (riscv64)	22m 54s
linux-x64-hs-optimized / build (debug)	18m 5s
linux-x64-hs-zero / build (debug)	13m 34s
macos-aarch64 / build (debug)	23m 43s
macos-x64 / build (debug)	23m 52s
macos-aarch64 / build (release)	14m 24s
windows-aarch64 / build (debug)	20m 4s
macos-x64 / build (release)	23m 48s
windows-x64 / build (debug)	23m 31s
windows-aarch64 / build (release)	19m 18s
windows-x64 / build (release)	23m 35s
windows-x64	1s
macos-aarch64	1s
linux-x64	1s
macos-x64	1s
	6h 37m 44s

Provide feedback